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