Option Compare Database

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _
ByVal hwndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, _
ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Public Function Size()

SetWindowPos Application.hWndAccessApp, HWND_TOPMOST,  50 ,  50 ,  400 ,  70 , SWP_SHOWWINDOW

End Function

Application.RunCommand acCmdAppMaximize

Public Function Size2()

SetWindowPos Application.hWndAccessApp, HWND_TOPMOST,  0 ,  0 ,  1024 ,  768 , SWP_SHOWWINDOW

End Function

Public Function WindowMaximized()

ShowWindow Application.hWndAccessApp, SW_SHOWMAXIMIZED

End Function