vb里怎么判断当前显示器的分辨率?

判断当前显示器的分辨率：
下面有一个小程序，你可以看一看，借鉴一下，

Private Sub Command1_Click()
Dim x As Integer
Dim y As Integer
x = Screen.Width / Screen.TwipsPerPixelX
y = Screen.Height / Screen.TwipsPerPixelY
Print "屏幕的分辨率是:"; x, y
End Sub

w=Screen.Width / Screen.TwipsPerPixelX
h=Screen.Height / Screen.TwipsPerPixelY