ник: Кабан
дополню 
в плане Zoomed :)
http://support.microsoft.com/kb/210118
Declare Function apiIsIconic Lib "user32" Alias "IsIconic" (ByVal hWnd As Long) As Long
Declare Function apiIsZoomed Lib "user32" Alias "IsZoomed" (ByVal hWnd As Long) As Long
Function IsAccessMaximized(hWnd&) As Boolean
IsAccessMaximized = apiIsZoomed(hWnd)
End Function
Function IsAccessMinimized(hWnd&) As Boolean
IsAccessMinimized = apiIsIconic(hWnd)
End Function
Function IsAccessRestored(hWnd&) As Boolean
IsAccessRestored = (IsAccessMaximized(hWnd) + IsAccessMinimized(hWnd) = 0)
End Function
'в форме, например
Private Sub Form_Resize()
Debug.Print IsAccessMinimized(Me.hWnd)
End Sub
|