Centrar ventanas al cargarlas en VB3


Este código permite hacer que las ventanas de los programas creados en VisualBasic 3 queden centradas en el medio de la pantalla al momento de ser cargadas. No importa en que resolución esté trabajando el equipo ya que la posición central se determina previo averiguar las dimensiones de la pantalla.

Inicialmente hay que crear una sub en cualquier módulo BAS del proyecto que contendrá lo siguiente:

Sub Centrar (x As Form)
'Coloca el reloj en el puntero.
Screen.MousePointer = 11

'Calcula el posicionamiento superior.
x.Top = (Screen.Height * .9) / 2 - x.Height / 2

'Calcula el posicionamiento izquierdo.
x.Left = Screen.Width / 2 - x.Width / 2

'Restaura el puntero.
Screen.MousePointer = 0

End Sub

Luego, en el código Load de los formularios a cargar aparecerá la llamada a la función pasándole el nombre del mismo.

Centrar VerifClave

Por último cabe aclarar que en VisualBasic 6 ya se incluye la opción de auto centrar por lo que este código se hace innecesario.