module1.bas

来自「VB精彩编程100列」· BAS 代码 · 共 11 行

Attribute VB_Name = "Module1"
Option Explicit
Public Sub Main()
     Dim x, y
     x = Screen.Width / Screen.TwipsPerPixelX
     y = Screen.Height / Screen.TwipsPerPixelY
     MsgBox "您的电脑解析度是" & x & " * " & y
     End
End Sub