VB Code:
  1. 'This project needs a timer,Interval 1000
  2.  
  3. 'In general section
  4. Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long
  5. Const Invert = 1
  6.  
  7. Private Sub Timer1_Timer()
  8. FlashWindow Me.hwnd, Invert
  9. End Sub