VB 窗体闪屏

'声明API函数Flashwindow
Private Declare Function FlashWindow Lib "user32" (ByVal hwnd As Long, ByVal bInvert As Long) As Long

 

Private Sub Timer1_Timer()
  Call FlashWindow(hwnd, 1)
End Sub

Private Sub Command1_Click()
  Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
  Timer1.Enabled = False
End Sub

Private Sub Command3_Click()
  Unload Me
End Sub

Private Sub Command4_Click()
  Call FlashWindow(hwnd, 1)
End Sub