Option Explicit
Private Declare Function FlashWindow _
   Lib "user32" ( _
       ByVal hwnd As Long, _
       ByVal bInvert As Long _
   ) As Long
'hwnd 是待闪烁的window
'binvert 1 表视窗title会闪一次

'开始闪烁
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
'停上title闪烁
Private Sub Command2_Click()
Timer1.Enabled = False
'Call FlashWindow(hwnd, CLng(False))
End Sub

Private Sub Form_Load()
    Timer1.Enabled = False
    Timer1.Interval = 500
End Sub

Private Sub timer1_Timer()
Dim lRtn As Long
'每执行一次则闪一次
lRtn = FlashWindow(hwnd, CLng(True))
End Sub