VB 获取计算机的分辨率大小

Private Sub Form_Load()

    Dim x, y

    x = Screen.Width / Screen.TwipsPerPixelX

y = Screen.Height / Screen.TwipsPerPixelY

    MsgBox "您电脑的分辨率为：" & x & " * " & y

End Sub