Windows - trovare La Risoluzione Del Proprio Schermo

schermo # Private Sub Command1_Click()
Dim CR$, TWidth%, THeight%
CR$ = Chr$(13) + Chr$(10)
TWidth% = Screen.Width \ Screen.TwipsPerPixelX
THeight% = Screen.Height \ Screen.TwipsPerPixelY
MsgBox "Screen Resolution:" + CR$ + CR$ + Str$(TWidth%) + " x" + Str$(THeight%), 64, "Info"
End Sub