或者:Private Sub Form_Load() Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2 End Sub
Private Sub Form_Load()
End Sub
Private Sub Form_Load() dim topx as integer dim lefty as integer topx=(screen.height-me.width)/2 lefty=(Screen.Height - Me.Height) / 2 me.top=topx me.left=lefty End Sub
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
End Sub
End Sub
dim topx as integer
dim lefty as integer
topx=(screen.height-me.width)/2
lefty=(Screen.Height - Me.Height) / 2
me.top=topx
me.left=lefty
End Sub