Option Compare Database

      Declare Function GetActiveWindow% Lib "user32" ()
      Declare Function ShowWindow% Lib "user32" (ByVal hwnd%, ByVal nCmdShow%)

      Function MaximizeAccess()
         Dim ActiveWnd%, Maxit%
         ActiveWnd% = GetActiveWindow()
         Maxit% = ShowWindow(ActiveWnd%, 3)
      End Function
      Function MinimizeAccess()
         Dim ActiveWnd%, Minit%
         ActiveWnd% = GetActiveWindow()
         Minit% = ShowWindow(ActiveWnd%, 2)
      End Function

      Function RestoreAccess()
         Dim ActiveWnd%, Restoreit%
         ActiveWnd% = GetActiveWindow()
         Restoreit% = ShowWindow(ActiveWnd%, 1)
      End Function