Public Declare Function FindWindow Lib "user32" Alias _
  "FindWindowA" (ByVal lpClassName As String, _
  ByVal lpWindowName As String) As Long
 
Dim nHWnd As Long
 
nHWnd = FindWindow(vbNullString, ---- Name der Anwendung, so wie er in der _
  Titelleiste steht ----)
If nHWnd = 0 Then ... 'Anwendung beendet

cu

ari