Memeriksa Resolusi Layar Monitor

'Persiapan: 1. Buat 1 Project baru dengan 1 Form.
' 2. Copy-kan coding berikut ke dalam editor form yang bertalian.
'--------------------------------------------------------------------------

Private Sub Form_Load()
ResWidth = Screen.Width Screen.TwipsPerPixelX
ResHeight = Screen.Height Screen.TwipsPerPixelY
ScreenRes = ResWidth & "x" & ResHeight
MsgBox (ScreenRes)
End Sub