Form - Barra Di Stato Del Form Diventa Intermittente

Intermittenza # ' Written exclusively for VB Center by Marco Cordero.
Private Declare Function FlashWindow Lib "user32" _
(ByVal hwnd As Long, ByVal bInvert As Long) _
As Long
Private Sub cmdFlash_Click()

' Flash the window

FlashWindow frmFlash.hwnd, 1

' Toggle the timer's enabled state

tmrFlash.Enabled = Not tmrFlash.Enabled

' Set the button text

If tmrFlash.Enabled Then

cmdFlash.Caption = "&Stop"

Else

cmdFlash.Caption = "&Flash Window"

End If
End Sub

Private Sub tmrFlash_Timer()

' Flash the window

FlashWindow frmFlash.hwnd, 1

End Sub