在VB6中，如何获取当前屏幕尺寸?

Question

我用Screen.PrimaryScreen.Bound.Width和Screen.PrimaryScreen.Bound.Height获取当前屏幕尺寸时，出现PrimaryScreen“未找到方法或数据成员”，
用GetSysMeTicx(SM_CXSCREEN)和GetSysMeTicx(SM_CYSCREEN)获取屏幕像素时，出现SM_CYSCREEN“变量未定义”，
这是没引用什么类文件吧，请高手指点。先谢了！

Answer 1

Debug.Print Screen.Width / Screen.TwipsPerPixelX, Screen.Height / Screen.TwipsPerPixelY

Answer 2

API方法：
Option Explicit
Private Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long
Private Const SM_CXSCREEN As Long = 0&
Private Const SM_CYSCREEN As Long = 1&Private Sub Command1_Click()
    Debug.Print GetSystemMetrics(SM_CXSCREEN), GetSystemMetrics(SM_CYSCREEN)
End Sub

Answer 3

我实际上要的就是Screen.Width 和Screen.Height ，谢谢“东方之珠”，解决了！