Public Structure FLASHWINFO
        Public cbSize As Int32
        Public hwnd As IntPtr
        Public dwFlags As Int32
        Public uCount As Int32
        Public dwTimeout As Int32
    End Structure
 
    Private Declare Function FlashWindowEx Lib "user32.dll" (ByRef pfwi As _
      FLASHWINFO) As Int32
 
    Private Const FLASHW_CAPTION As Int32 = &H1
    Private Const FLASHW_TRAY As Int32 = &H2
    Private Const FLASHW_ALL As Int32 = (FLASHW_CAPTION Or FLASHW_TRAY)
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 
 Timer2.Interval = 1000
        Timer2.Start()
    End Sub
 
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Timer2.Tick
        Dim flash As New FLASHWINFO
        flash.cbSize = System.Runtime.InteropServices.Marshal.SizeOf(flash) _
          '/// size of structure in bytes
        flash.hwnd = MyBase.Handle '/// Handle to the window to be flashed
        flash.dwFlags = FLASHW_TRAY '/// to flash both the caption bar + the 
        ' tray
        flash.uCount = 9995 '/// the number of flashes
        flash.dwTimeout = 500 '/// speed of flashes in MilliSeconds ( can be 
        ' left out )
        '/// flash the window you have specified the handle for...
        FlashWindowEx(flash)
        Timer2.Stop()
    End Sub