ScreenRes

Private Sub Form_Load()
Print "Current Screen resolution is "; _
Screen.Width / Screen.TwipsPerPixelX; " * "; _
Screen.Height / Screen.TwipsPerPixelX;
End Sub