Dim hwndDesktop As IntPtr = GetDesktopWindow
        Dim hwndChild As IntPtr = IntPtr.Zero
        Do
            hwndChild = FindWindowEx(hwndDesktop, hwndChild, vbNullString, _
              vbNullString)
            Dim ret As Integer
 
            ret = GetWindowTextLength(hwndChild) + 1
 
            'Den Titeltext des Fensters holen
            Dim sb As New System.Text.StringBuilder(ret)
            ret = GetWindowText(hwndChild, sb, ret)
            Dim txt As String = sb.ToString
 
            'Vergleich, ob der Text dem Gesuchten entspricht und ggf. merken
            If txt.StartsWith(" TEXT:") Then
                ListBox1.Items.Add(txt.TrimStart)
 
            End If
        Loop Until hwndChild.Equals(IntPtr.Zero)