设置窗体位置

[mwmwmw]

对话框（窗体）的表示位置设置在屏幕中心（利用TOp,Left属性），这个用VBA实现显示对话框应该怎样实现？我的想法是先求出屏幕的长度减去对话框的长度后除2就是对话框的高度。
可是VBA中不识别screen,我怎么才能求出屏幕的长度呢？？？？
请高手给我指点指点，谢谢，我很急！！

[xingnup]

可以设置窗体的"StartUpPosition"属性=2(屏幕中心)

[道素]

Private Sub Form_Resize()
Dim X0 As Long
Dim Y0 As Long

'让窗体居中
X0 = Screen.Width
Y0 = Screen.Height
X0 = (X0 - Me.Width) / 2
Y0 = (Y0 - Me.Height) / 2
Me.Move X0, Y0

End Sub

[道素]

对不起，没看清你的要求

[道素]

这是access中实现的方法
Private Sub Form_Load()
DoCmd.Echo False
Dim x, y As Integer
DoCmd.Maximize
x = Me.WindowWidth
y = Me.WindowHeight
DoCmd.Restore
DoCmd.Echo True
Move (x - Me.WindowWidth) / 2, (y - Me.WindowHeight) / 2
End Sub