【VB】VB 循环查找指定标题的窗口是否打开

VB 循环查找指定标题的窗口是否打开：

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Timer1_Timer()
    Dim hwnd As Long
    hwnd = FindWindow(vbNullString, "传奇加载")                                 '抓取这个窗口名称.
    If hwnd 0 Then MsgBox "打开了"
End Sub