ScreenDimPixel

Dim Width As Integer
Dim Height As Integer
Width = Screen.Width \ App.TwipsPerPixelX
Height = Screen.Height \ App.TwipsPerPixelY