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

If FindWindow(vbNullString, "exakter Fenstertitel") <> 0 Then
  MsgBox "Anwendung ist bereits gestartet!"
End If

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de