Private Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As _
  Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Private Declare Function GetClassName Lib "user32.dll" Alias "GetClassNameA" ( _
ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount 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
 
Sub UnterfensterAuflisten (hwnd as Long)
 
EnumChildWindows hwnd, AddressOf EnumChildProc, ByVal 0& 
 
end sub
 
Private Function EnumChildProc(ByVal hwndc As Long, ByVal lParam As Long) As _
  Long
    'Callback-Function von EnumChildWindows
    Dim sSave As String
    Dim wClass As String
    Const WM_GETTEXT = &HD
    Dim sClass As String
    Dim result As String
    Dim HexHWND As String
    Dim erg As String
 
    'Länge des Fenstertextes
    sSave = Space$(GetWindowTextLength(hwndc) + 1)
    'Fenstertext
    GetWindowText hwndc, sSave, Len(sSave)
    'das letzte Chr$(0) entfernen
    sSave = Left$(sSave, Len(sSave) - 1)
 
    sClass = Space$(256)
    'Klassenname ermitteln
    GetClassName hwndc, sClass, 255
    result = Left$(sClass, InStr(sClass, vbNullChar) - 1)
 
    'Reihenfolge der Handles zu ermitteln
 
    erg = "Fenstertext: " & sSave & vbNewLine
    erg = erg & "Handle: " & hwndc & vbNewLine
    erg = erg & "Handle: " & Hex(hwndc) & " (HEX)" & vbNewLine
    erg = erg & "Klassenname: " result
    MsgBox erg
 
    'Aufzählung fortsetzen
    EnumChildProc = 1
 
End Function

Gru?, Stefan