Usa esta funcion
'---------------------------------------------------------------------------
'Parámetros de entrada: frmFormulario(formulario a centrar)
'Centra el formulario pasado por parámetro en el centro del formulario padre
'---------------------------------------------------------------------------
Public Sub Posiciona(frmFormulario As Form) 'centra un formulario
frmFormulario.Top = Int((mdiMenu.ScaleHeight - _
frmFormulario.Height) / 2)
frmFormulario.Left = Int((mdiMenu.ScaleWidth - _
frmFormulario.Width) / 2)
End Sub
Donde mdiMenu es el nombre de tu Formulario padre
Salu2
