' benötigte API-Deklaration
Private Declare Function FindWindow Lib "user32" _
  Alias "FindWindowA" ( _
  ByVal lpClassName As String, _
  ByVal lpWindowName As String) As Long

Dim hWnd As Long
hWnd = FindWindow(vbNullString, "Eigenschaften von Anzeige")
If hWnd <> 0 Then
  ' aktiv
Else
  ' nicht vorhanden
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de