Hi,

maybe this helps:

Code:
Dim width As Long
Dim height As Long

DoCmd.OpenForm "Form1", acNormal
DoCmd.Maximize

width = Forms("Form1").WindowWidth
height = Forms("Form1").WindowHeight

DoCmd.Restore
DoCmd.Close

MsgBox "Width = " & width & ", Height = " & height
The determined width and height don' count that windows have a title and a border. To be on the save side, you can use

Code:
width = Forms("Formular1").InsideWidth
height = Forms("Formular1").InsideHeight
instead.

Happy New Year
Roger