Public Delegate Function EWCallBack(ByVal hwnd As IntPtr, ByVal lParam As _
      IntPtr) As Integer
 
    <System.Runtime.InteropServices.DllImport("user32")> _
    Public Shared Function EnumWindows(ByVal cb As EWCallBack, ByVal y As _
    IntPtr) As Integer
    End Function
 
    <System.Runtime.InteropServices.DllImport("user32")> _
    Public Shared Function GetWindowTextW(ByVal hWnd As IntPtr, ByRef lpString _
    As Byte, ByVal nMaxCount As Integer) As Integer
    End Function
 
    Protected Overrides Sub onLoad(ByVal e As System.EventArgs)
        MyBase.OnLoad(e)
        EnumWindows(New EWCallBack(AddressOf ListWindows), 0)
        Label1.Text = wc.ToString() & " windows"
    End Sub
 
    Private wc As Integer
    Private listAll As Boolean = False
 
    Public Function ListWindows(ByVal hwnd As Integer, ByVal lParam As IntPtr) _
      As Integer
        Dim wtb(255) As Byte
        Dim wts As String
        Dim tl As Integer = GetWindowTextW(hwnd, wtb(0), 128)
        If tl > 0 Then
            wts = System.Text.Encoding.Unicode.GetString(wtb, 0, tl * _
              2).Substring(0, tl)
            ListBox1.Items.Add(hwnd.ToString() & "=" & wts)
            wc += 1
        Else
            If listAll Then
                wts = "[no caption]"
                ListBox1.Items.Add(hwnd.ToString() & "=" & wts)
                wc += 1
            End If
        End If
        Return True
    End Function

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist