Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Sub Command1_Click()
Dim lngWndAgent As Long
lngWndAgent = FindWindowEx(0, 0, "AgentAnim", vbNullString)
MsgBox "Agent hWnd: " & CStr(lngWndAgent)
End Sub