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.5, (y - Me.WindowHeight) / 3
End Sub
原文：https://www.cnblogs.com/ince/p/8976117.html