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 |