hwnd = FindWindow(vbNullString, vbNullString)
 
   Do Until hwnd = 0
      If GetParent(hwnd) = 0 Then
         Call GetWindowThreadProcessId(hwnd, idproc)
         If pid = idproc Then
            hwndrichtig = hwnd
            Exit Do
         End If
      End If
 
     hwnd = GetWindow(hwnd, GW_HWNDNEXT)
   Loop

Gru?

Ralf