Dim x, y As Long x = Screen.PrimaryScreen.Bounds.Width.ToString y = Screen.PrimaryScreen.Bounds.Height.ToString MsgBox(x & y) 这就是获取当前显示的分辨率
使用wmi,具体方法google，还是很简单的……
