Private Declare Function apiShowWindow Lib "user32" _
Alias "ShowWindow" (ByVal hWnd As Long, _
ByVal nCmdShow As Long) As Long
Private Sub Form_Open(Cancel As Integer)
Const SW_SHOWMAXIMIZED As Long = 3
Dim lngResult As Long
'Maximize the MS Access appplication window
lngResult = apiShowWindow(hWndAccessApp, SW_SHOWMAXIMIZED)
'Maximise the form
DoCmd.Maximize
End Sub