请问高手，我如何让我的窗口运行在不同的分辨率下。谢谢！

首先获取当前分辨率

我不知道改如何做，请你给我具体一点的建议好吗？谢谢

Private Sub Form_Load()
Dim x, y, w, h
x = Screen.Width '分辩率的宽
y = Screen.Height '分辩率的高
w = Form1.Width '窗口的宽
h = Form1.Height '窗口的高
Me.Move (x - w) / 2, (y - h) / 2 '居中
End Sub
比如这样
这个窗口在打开时无论分辩率是多少，它都是居中的

[此贴子已经被作者于2006-6-30 10:32:50编辑过]

谢谢！非常感谢

如果在22寸显示器上满屏的画面，到17寸显示器上，即使居中也显示不全啊。