Change Size Of Access Window
acCmdAppSize
Changes mouse into 4 headed arrow to enable the Access window to be resized by the arrow keys.
'***************** Code Start *******************
Sub WinSize()
DoCmd.RunCommand acCmdAppSize
End Sub
'****************** Code End ********************