How to Center the form relative to MDI form

Home » Forms » How to Center the form relative to MDI form

How to Center the form relative to MDI form

Posted on January 5, 2009

'Forms - How to Center the form relative to MDI form
Option Explicit
 
Public Sub CenterForm(frm As Form, frmMDI As MDIForm)
    ' If frm is an MDI child in a MDI parent then center frm within the parent.
    If frm.MDIChild And Not frmMDI.MDIChild Then
        frm.Move ((frmMDI.Width - frm.Width) / 2), ((frmMDI.Height - frm.Height) / 2)
    Else
        frm.Move ((frmMDI.Width - frm.Width) / 2) + frmMDI.Left, ((frmMDI.Height - frm.Height) / 2) + frmMDI.Top
    End If
End Sub