Public Declare Function EnumWindows Lib "User32.dll" ( Byval EnumProc as Long, _
  Byval lParam as Long) as Boolean
Public Declare Function GetWindowText Lib "User32.dll" ( Byval hwnd as Long, _
Byval outString as String, Byval maxLength as Long) as Long
Public Declare Function GetWindowTextLength ( Byval hwnd as Long) as Long
 
Public Sub EnumAllWindows()
    EnumWindows AddressOf EnumProc, 0
End Sub
 
Public Function EnumProc(Byval hwnd as Long, Byval lParam as Long) as Boolean
    Dim tmpString as String
    Dim lenTitle as Long
    lenTitle = GetWindowTextLength( hwnd)
    tmpString = String("*",lenTitle)
    MsgBox GetWindowText( hwnd, tmpString, lenTitle) ' Gibt die Namen der 
    ' Fenster aus'
End Function

Bye

illuminator
(Programmers don't die, they GOSUB without RETURN...)