CodeItBetter Programming Another VB Programming Blog

'System & API - How to window caption to flash repeatedly
'Calls FlashWindow api which causes the window caption to flash repeatedly.

Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
 
Private Sub Form_Load()
    'Set interval to one second = 1000 milliseconds
    Timer1.Interval = 1000
End Sub
 
Private Sub Timer1_Timer()
    Dim ReturnVal As Long
    ReturnVal = FlashWindow(Form1.hwnd, 1)
End Sub