Home > How-To Library > System & API

How to window caption to flash repeatedly

****************************************************************
*       © 2007 CodeItBetter http://www.codeitbetter.com        *
*          This notice MUST stay intact for legal use          *
****************************************************************


'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

If you would like to submit your code here please us. Do not forget to mention your name. We are always thankful to each and everyone of you who submitted their code here.