使窗体居中显示代码

　　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