Center an MDI Child Form Within the Parent

Sub CenterChild (Parent As Form, Child As Form)
  Dim iTop As Integer
  Dim iLeft As Integer
  If Parent.WindowState <> 0 Then Exit Sub
  iTop = ((Parent.Height - Child.Height) \ 2)
  iLeft = ((Parent.Width - Child.Width) \ 2)
  Child.Move iLeft, iTop ' (This is more efficient than setting Top and Left properties)
End Sub


The next thing you will need to do is actually call the CenterChild procedure. I have placed the call to CenterChild within the child window's Form_Click event procedure. 

Sub Form_Click ()
  CenterChild MDIForm1, Form1
End Sub
Upload
Upload