positioning MDI child forms 1

[GrahamUNC]

I would like all my MDI child forms to come up in the absolute center of my MDI parent form. It seemed logical to me to change the StartUpPosition property of the MDI child form to 1 - CenterOwner but I get an "Invalid Property Value" error with that. Any help would be greatly appreciate. Thanks.

 

[woyler]

Sub Center(frmMe As Form)
Dim iLeft As Integer
Dim iTop As Integer
iTop = ((MDIFORM.Height - frmMe.Height) / 2)
iLeft = ((MDIFORM.Width - frmMe.Width) / 2)
frmMe.Left = iLeft
frmMe.Top = iTop
End Sub

 

[GrahamUNC]

I understand what the code does but don't know exactly where to put it. Where should I place it so I can call it whenever a new form is loaded? I'm eventually going to have to call each time after a resize as well, correct?

 

[woyler]

Make it a public routine in a module. When you load/show/resize a child form simply code:
Center Me

 

[GrahamUNC]

Awesome. Exactly what I wanted. Thank you.