'---------------------------------------------------------------

Declarations

Private Declare Function EnumWindows Lib "user32.dll" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

Private Declare Function GetWindowText Lib "user32" Alias _
"GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, _
ByVal cch As Long) As Long

Private Declare Function GetWindowTextLength Lib "user32" _
  Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long

Dim bFound As Boolean



Public Sub Main()
  
  bFound = False
  bb = EnumWindows(AddressOf EnumWindows_CallBack, 0)
  
  If bFound Then
    MsgBox "Origin found"
  Else
    MsgBox "Origin not found"
  End If
    
  
End Sub



' This function is called from the EnumWindows API
Private Function EnumWindows_CallBack(ByVal hwnd As Long, ByVal lParam As Long) As Long
   Dim wndName As String
   Length = GetWindowTextLength(hwnd)
   wndName = Space$(Length + 1)
   Length = GetWindowText(hwnd, wndName, Length + 1)
   If InStr(wndName, "Origin") = 1 Then
     EnumWindows_CallBack = 0
     bFound = True
     Exit Function
   End If
  
  EnumWindows_CallBack = 1
End Function
'---------------------------------------------------------------