Public Sub CenterForm(ByRef Frm As Form) Dim X As Integer Dim Y As Integer X = (Screen.Width - Frm.Width) / 2 Y = (Screen.Height - Frm.Height) / 2 Frm.Move X, Y End Sub