Private sub Command1_Clck()
    MsgBox "Display Settings : " & Screen.Width / Screen.TwipsPerPixelX & " X " & _
         Screen.Height / Screen.TwipsPerPixelY
End Sub