[求助]想使窗体居中，用move，为什么总是出现编译错误：子过程或函数未定义？

bluesand

如题！
谢谢！[em25]

Ajoe

在窗体中，加上如下代码：
Private Sub Form_Open(Cancel As Integer)
    Application.Echo False
    Call AbsCenter
    Application.Echo True
End Sub

Private Sub AbsCenter()
    '绝对置中特效
    Dim X, Y, XMax, YMax As Integer

    X = Me.WindowWidth
    Y = Me.WindowHeight
   
    DoCmd.Maximize
   
    XMax = Me.WindowWidth
    YMax = Me.WindowHeight
   
    DoCmd.Restore
   
    DoCmd.MoveSize (XMax - X) / 2, (YMax - Y - 400) / 2
   
End Sub

bluesand

谢谢！