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
|