Num modulo;
Option Explicit
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2
Global Const SW_SHOWMAXIMIZED = 3
Declare Function ShowWindow Lib "User32" (ByVal Hwnd As Long, _
ByVal nCmdShow As Long) As Long
Public Function MaximizaAccess()
Dim Maxit%
Maxit% = ShowWindow(hWndAccessApp, SW_SHOWMAXIMIZED)
End Function
Public Function MinimizaAccess()
Dim Minit%
Minit% = ShowWindow(hWndAccessApp, SW_SHOWMINIMIZED)
End Function
Public Function RestauraAccess()
Dim Restoreit%
Restoreit% = ShowWindow(hWndAccessApp, SW_SHOWNORMAL)
End Function
Chamar uma função, basta utilizar o:
Call MinimizaAccess