[color=blue]Private Declare Function[/color] IsIconic [color=blue]Lib[/color] _
  "user32.dll" ( _
   [color=blue]ByVal[/color] hwnd [color=blue]As Long[/color]) [color=blue]As _
   Long[/color]
 
[color=blue]Private Declare Function[/color] FindWindow [color=blue]Lib[/color] _
  "user32.dll" [color=blue]Alias[/color] "FindWindowA" ( _
   [color=blue]ByVal[/color] lpClassName [color=blue]As String[/color], _
   [color=blue]ByVal[/color] lpWindowName [color=blue]As String[/color]) _
   [color=blue]As Long[/color]
 
 
[color=blue]Dim[/color] Handle [color=blue]As Long[/color]
 
Handle = FindWindow(vbNullString, "Fenstertitel")
 
[color=blue]If[/color] Handle = 0 [color=blue]Then[/color]
 
  MsgBox "Programm ist nicht gestartet."
 
[color=blue]Else[/color]
 
  [color=blue]If[/color] IsIconic(Handle) = 0 [color=blue]Then[/color]
    MsgBox "Programm ist nicht minimiert"
  [color=blue]Else[/color]
    MsgBox "Programm ist minimiert"
  [color=blue]End If[/color]
 
[color=blue]End If[/color]

Viel Spass,
R@lf