VB Snippet - Flash Window

[James Stanich]

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