Public Sub Form_Open()

Print Desktop.Width
Print Desktop.Height

End