ник: Serge Gavrilov
например, узнать из самой формы по нажатию кнопки:
Private Declare Function IsZoomed Lib "user32" (ByVal hwnd As Long) As Long
------------------------------------------------------------------------------------------------------------
Private Sub Command0_Click()
If IsZoomed(Me.hwnd) Then
MsgBox "Форма развернута"
Else
MsgBox "Форма не развернута"
End If
End Sub
|