'paste this into the Form_Load()
'or anywhere else you want it

Select Case Me.WindowState
    
    Case vbMinimized

    Case vbMaximized

    Case vbNormal
        Me.Top = Screen.Height / 2 - Height / 2
        Me.Left = Screen.Width / 2 - Width / 2

End Select