' Aktiviert ein Fenster mit Hilfe der Prozess-ID
Public Function WindowActivate(ByVal AppID As Long, _
  Optional ByVal AppState As vbWindowState = ShowNormal) As Boolean
 
  On Error Resume [Color=blue]Next[/color]
 
  Dim Handle As Long, lTaskID As Long
 
  ' erstes Fenster ermitteln
  Handle = FindWindow(vbNullString, vbNullString)
 
  ' alle Fenster durchlaufen
  Do Until Handle = 0
 
    ' Prozess-ID des gefundenen Fensters ermitteln
    lTaskID = GetWindowTaskID(Handle)
 
    ' Prozess-ID des gefundenen Fensters mit der übergebenenen
    ' Prozess-ID (AppID) vergleichen, wenn beide gleich sind,
    ' dann ist das gefundene Fenster das gesuchte Fenster
    If lTaskID = AppID Then
 
      ' Fensterstatus prüfen und ggf. ändern
      Select Case AppState
 
        ' normale Größe
        Case ShowNormal
          ' Fenstergröße nur ändern, wenn Fenster minimiert
          ' oder maximiert ist
          If IsIconic(Handle) Or IsZoomed( _
            Handle) Then ShowWindow Handle, AppState
 
        ' Maximiert
        Case ShowMaximized
          ' Fenstergröße nur ändern, wenn Fenster nicht maximiert ist
          If IsZoomed(Handle) = False Then ShowWindow Handle, AppState
 
        ' Minimiert
        Case ShowMinimized
          ' Fenstergröße nur ändern, wenn Fenster nicht minimiert
          If IsIconic(Handle) = False Then ShowWindow Handle, AppState
 
      End Select
 
      ' Fenster aktivieren
      AppActivate AppID, False
 
      ' Funktions-Rückgabewert auf erfolgreich (TRUE) setzen
      WindowActivate = True
 
      ' Funktion beenden
      Exit Function
    End If
 
    ' nächstes Fenster suchen
    Handle = GetWindow(Handle, GW_HWNDNEXT)
  Loop
 
  ' hier gehts nur hin, wenn kein Fenster mit der angegebenen
  ' Prozess-ID (also AppID) gefunden wurde
 
  ' Funktions-Rückgabewert auf NICHT erfolgreich (FALSE) setzen
  WindowActivate = False
 
End Function

Viel Spass,
R@lf