Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function GetParent Lib "user32.dll" (ByVal hwnd As Long) As Long
Public Declare Function GetWindowThreadProcessId Lib "user32" _
(ByVal hwnd As Long, lpdwprocessid As Long) As Long
Public hwndrichtig As String
Public Const GW_HWNDNEXT = 2
 
Public Sub pidhwnd()
Dim wert
 
Do While wert = vbNull
  hwnd = FindWindow(vbNullString, vbNullString)
 
   If GetParent(hwnd) <> 0 Then
    GetWindowThreadProcessId hwnd, idProc
     If Pid = idProc Then
       hwndrichtig = hwnd
       wert = 1
     End If
   Else
    Do While GetParent(hwnd) = 0
      hwnd = GetWindow(hwnd, GW_HWNDNEXT)
        If GetParent(hwnd) <> 0 Then
          GetWindowThreadProcessId hwnd, idProc
            If Pid = idProc Then
              hwndrichtig = hwnd
              wert = 1
            End If
        End If
   Loop
Loop
 
End Sub