'Open New Project and add Module. Put The Public Function below in Module Section Public Function SetFormCenter(ByVal x As Form) As Boolean x.Top = (Screen.Height - x.Height) / 2 x.Left = (Screen.Width - x.Width) / 2 End Function 'Put this code in Form Private Sub Form_Load() SetFormCenter Me End Sub