Buatlah Sebuah Project VB 6.0
Kemudian Tambahkan Form1 pada Project VB 6.0 anda
Kemudian masukan Koding dibawah ini pada Form1:
Private Sub Form_Load()
ResWidth = Screen.Width \ Screen.TwipsPerPixelX
ResHeight = Screen.Height \ Screen.TwipsPerPixelY
ScreenRes = ResWidth & "x" & ResHeight
MsgBox (ScreenRes)
End Sub
Kemudian silahkan anda Run aplikasi VB anda
Salam
BelajarVB.com