minimize access window

Option Compare Database
Option Explicit

Public Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Public Const SW_HIDE = 0
Public Const SW_NORMAL = 1
Public Const SW_MIN = 2
Public Const SW_MAX = 3


Public Const SM_CXSCREEN = 0 'X Size of screen
Public Const SM_CYSCREEN = 1 'Y Size of Screen
Function MaximizeAccess()
      ShowWindow Application.hWndAccessApp, SW_MAX
End Function
Function ShowAccess()
      ShowWindow Application.hWndAccessApp, SW_NORMAL
End Function

Function HideAccess()
      ShowWindow Application.hWndAccessApp, SW_HIDE
End Function

Public Function AdjstAccssWndw(Optional ByVal MyX As Long = 200, Optional ByVal MyY As Long = 25)
    Dim ErrNum As Long, ErrDesc As String
    On Error GoTo SubEx
    Call MoveWindow(Application.hWndAccessApp, CLng(Round((GetSystemMetrics(SM_CXSCREEN) - MyX) / 2, 0)), CLng(Round((GetSystemMetrics(SM_CYSCREEN) - MyY) / 2, 0)), MyX, MyY, True)
ExitMe:
    Exit Function
SubEx:
    ErrNum = Err.Number: ErrDesc = Err.Description: Err.Clear
    Debug.Print ErrNum & ErrDesc
    Resume ExitMe
End Function