FormCenterVB5

Sub CentraForm (x as Form)
With x
.top = (Screen.Height - .Height)\2
.left = (Screen.Width - .Width)\2
End With
End Sub