por alli encontre este codigo..
Código:
Sub Centra(FormName As Form)
If FormName.MDIChild Then
FormName.Left = (MDIMenuPrincipal.ScaleWidth - FormName.Width) \ 2
FormName.Top = (MDIMenuPrincipal.ScaleHeight - FormName.Height) \ 2
Else
FormName.Left = (Screen.Width - FormName.Width) \ 2
FormName.Top = (Screen.Height - FormName.Height) \ 2
End If
End Sub
'MDIMenuPrincipal es el nombre del formulario MDI de la aplicacion, para
'llamarla solo tenes que poner este codigo en el evento load del formulario
'que vas a mostrar
Private Sub Form_Load()
Centra Me
End Sub
pero este no te funcionara si colocas toolbar y statusbar se verá disparejo..
nos vemos..'