Fremde Fenster lassen sich bequem ein- oder ausblenden.
��� In diesem Fall nenne ich es einfach mal "verstecken".
��� Der Rechner (calc.exe) wird gestartet und kann anschlie�end
��� ein- bzw. ausgeblendet werden.
��� Sinnvoll f�r Anwendungen, die im Hintergrund laufen sollen,
��� aber nicht permanent zu sichtbar sein m�ssen.
��� In meinem Fall wende ich es f�r den Seti@Home Textclient an.
����

ERFORDERLICHE OBJEKTE �����

   2 CommandButtons (Command1, Command2)
 FORM-CODE         

Private Declare Function FindWindow Lib "user32" _
   Alias "FindWindowA" (ByVal lpClassName As String, _
   ByVal lpWindowName As String) As Long
Private Declare Function IsIconic Lib "user32" _
   (ByVal hwnd As Long) As Long
Private Declare Function IsZoomed Lib "user32" _
   (ByVal hwnd As Long) As Long

Fenstertitel = "Unbenannt - Editor"
    Handle = FindWindow(vbNullString, Fenstertitel)
    If IsIconic(Handle) Then t = "minimiert"
    If IsZoomed(Handle) Then t = "maximiert"
    MsgBox "Das Fenster " & Fenstertitel & " ist " & t

�