Private Declare Function FlashWindow Lib "user32" _ (ByVal hwnd As Long, ByVal bInvert As Long) As Long
Private Sub Command1_Click()
Static Invert As Boolean
If Invert = False Then
Timer1.Enabled = True
Invert = True
Else
FlashWindow hwnd, False
Timer1.Enabled = False
Invert = False
End If
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 200
End Sub
Private Sub Timer1_Timer()
FlashWindow hwnd, True
End Sub |
|