VB判断其他窗口是否最小化

Private Declare Function IsIconic Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Sub Timer1_Timer()
   Dim a As Long
   a = FindWindow(vbNullString, "新倚天2")
   If IsIconic(a) = 1 Then Me.Caption = "已被最小化" Else Me.Caption = "未被最小化"
End Sub

群214016721