Option Explicit
 
      Declare Function IsZoomed Lib "User32" (ByVal hWnd As Long) As _
           Integer
      Declare Function IsIconic Lib "User32" (ByVal hWnd As Long) As _
           Integer

Public Property Get Maximized() As Integer
     Maximized = IsZoomed(Me.hWnd) * -1
End Property
 
Public Property Get Minimized() As Integer
     Minimized = IsIconic(Me.hWnd) * -1
End Property
 
Public Property Let Maximized(IsMax As Integer)
     If IsMax Then
         Me.SetFocus
         DoCmd.Maximize
     Else
         Me.SetFocus
         DoCmd.Restore
     End If
End Property
 
Public Property Let Minimized(IsMin As Integer)
     If IsMin Then
         Me.SetFocus
         DoCmd.Minimize
     Else
         Me.SetFocus
         DoCmd.Restore
     End If
End Property

If Forms.FormAdi.Minimized = True Then
Form.Visible = False
Call sHookTrayIcon(Application.hWndAccessApp)
End If