The child form position in MDI

[Guest_imported]

Hello,

I have set the MDI and a child form. So whenever the MDI loads, the child form loads too. But I want to change the position of the child form. Instead of displaying on left,I want to display on center. Is this possible?

-John

 

[mkuan]

Try passing the form you want to center into this procedure:

Public Sub FormCentre(frmCurrent As Form)

Dim iWindowLeft As Integer ' window left corner
Dim iWindowTop As Integer ' window top corner

iWindowLeft = (Screen.Width/2) - (frmCurrent.Width/2)
iWindowTop = (Screen.Height/2) - (frmCurrent.Height/2)

frmCurrent.Move iWindowLeft, iWindowTop
End Sub


Min.