VB Snippet - Flash Window
VB Code:
Private Declare Function GetActiveWindow Lib "user32.dll" () As Long
Private Declare Function FlashWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal wActive As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dMilliseconds As Long
Private Sub Command1_Click()
Dim i As Integer
Dim handle As Long
Dim rval As Long
' GET HANDLE OF CURRENT WINDOW
handle = GetActiveWindow()
For i = 1 To 10
rval = FlashWindow(handle, 1) 'Flash the window
Sleep 500
Next
rval = FlashWindow(handle, 0)
End Sub