Private Sub EnumWindows()
    Dim hWnd&, Result&, Title$
 
    List2.Clear
    hWnd = GetWindow(Me.hWnd, GW_HWNDFIRST)
 
    Do
        Result = GetWindowTextLength(hWnd) + 1
        Title = Space$(Result)
        Result = GetWindowText(hWnd, Title, Result)
        Title = Left$(Title, Len(Title) - 1)
 
        If InStr(1, Title, Text1.Text) Then
            List2.AddItem Title & " wurde gefunden... "
            List2.ItemData(List2.NewIndex) = hWnd
        End If
 
        hWnd = GetWindow(hWnd, GW_HWNDNEXT)
    Loop Until hWnd = 0
End Sub

mfg Lukas