hwnd = FindWindow(vbNullString, vbNullString)
 
 
 
   Do Until hwnd = 0
 
      If GetParent(hwnd) = 0 Then
 
           Debug.Print "kein parent fenster"
 
         Call GetWindowThreadProcessId(hwnd, idproc)
 
         If Pid = idproc Then
 
            hwndrichtig = hwnd
            MsgBox "huhu"
 
            Exit Do
 
         End If
 
      Else     
 
      Debug.Print "hatt nen parent fenster"
 
      '#### wie kann ich hier das nächste Handle holen? Kinderhandle?
     hwnd = GetWindow(hwnd, GW_HWNDNEXT) ????
 
      Do Until GetParent(hwnd) = 0
 
 
         If Pid = idproc Then
 
            hwndrichtig = hwnd
            MsgBox "huhu parent"
 
            Exit Do
 
         End If
 
     '#### Hier ebenfalls  hwnd = GETWindow(hwnd, GW_HWNDNEXT)
 
      Loop
 
      End If
 
     hwnd = GetWindow(hwnd, GW_HWNDNEXT)
 
   Loop