woops
Try this..
Public frmHeight As Double
Public frmWidth As Double
Private Sub Form_Load()
DoCmd.Maximize
frmWidth = Me.InsideWidth
frmHeight = Me.InsideHeight
DoCmd.Restore
DoCmd.MoveSize 0, 0, frmWidth, frmHeight
End Sub
I like simple!
Public frmHeight As Double
Public frmWidth As Double
Private Sub Form_Load()
DoCmd.Maximize
frmWidth = Me.InsideWidth
frmHeight = Me.InsideHeight
DoCmd.MoveSize 0, 0, frmWidth, frmHeight
End Sub
This works and looks good too.:cool: