怎么获得当前屏幕的width和height?

Question

debug.print Screen.Height
debug.print Screen.Width
Screen 对象
            根据窗体在屏幕上的布局而操作窗体，并在运行时控制应用程序窗体之外的鼠标指针。Screen 对象通过关键字 Screen 访问。语法Screen说明Screen 对象是指整个 Windows 桌面。当模式窗体被显示时，使用 Screen 对象可以设置 Screen 对象的 MousePointer 属性为沙漏指针 (hourglass pointer)。

Answer 1

Private Sub Command1_Click()
Dim ResWidth As Integer, ResHeight As Integer
Dim ScreenRes As String
ResWidth = Screen.Width \ Screen.TwipsPerPixelX '屏幕的宽度
ResHeight = Screen.Height \ Screen.TwipsPerPixelY '屏幕的长度
ScreenRes = ResWidth & "x" & ResHeight
MsgBox (ScreenRes)
End Sub

Answer 2

TwipsPerPixelX、TwipsPerPixelY 属性 
      返回水平 (TwipsPerPixelX) 或垂直 (TwipsPerPixelY) 度量的对象的每一像素中的缇数。语法object.TwipsPerPixelXobject.TwipsPerPixelYobject 所在处代表一个对象表达式，其值是“应用于”列表中的一个对象。说明Windows API 例程一般需要以像素为度量单位。使用这些属性能够快速转换度量单位而不用改变对象的 ScaleMode 属性设置值。

Answer 3

screen.Height 
screen.Width