¿Recentrar form a la pantalla despues de cambiar tamaño?

[DARK_OZMA]

Estoy en Visual Basic 6.
Como propiedad del form le marco StartUpPosition=CenterScreen.

Lo que hace que la aplicacion aparezca centrada.

Pero tengo un boton que me abre una parte de detalles, aumentando el tamaño (Height) del lienzo, quedando descentrado como es de esperar.

¿Como hago para que cuando pulse el boton de mostrar detalles, aparte de ampliarme el lienzo, me lo recentre a la pantalla?

SALU2 y gracias por adelantado.

[Kelpie]

Probablemente puedas solucionarlo con el objeto screen, que te ofrece dos útiles propiedades:
screen.width
screen.height

Podrías hacerte una función del tipo

Código:

sub centraForm (byval cual as form)
   cual.left=(screen.width-cual.width)/2
   cual.top=(screen.height-cual.height)/2
end sub

[DARK_OZMA]

uf, no lo pillo, aqui pongo el codigo de cuando amplio/reduzco la pantalla cada vez que pulso en "Detalles":

Private Sub Detalles_Click()
If (Form1.Height = 6120) Then
Form1.Height = 9360
'Centrar
Else
Form1.Height = 6120
'Centrar
End If
End Sub

Donde e colocado Centrar, es donde deberia llamar a la funcion.
SALU2.

[Eternal Idol]

Private Sub Detalles_Click()
If (Form1.Height = 6120) Then
Form1.Height = 9360
Else
Form1.Height = 6120
End If
centraForm Form1
End Sub

[DARK_OZMA]

Impresionante
To el fallo que me daba era por los parentesis en centrarForm (Form1)
Toy mal acostumbrado al c y php...

Por cierto, sabeis de algun manual para hacer lo basico de un programa, abrir, copiar y grabar ficheros?
No me refiero a las opciones de menu y un common control, sino el codigo para los eventos Click, dblclik, drag, etc...

SALU2.

[Eternal Idol]

Jejeje, VB es así :)

Para poder llamar la función y no tomar el valor de retorno hay que sacar los parentesis ... cosas raras eh. Jaja.


PD. Si sabes C dejá VB, no vale la pena.

[Kelpie]

Hazle caso a Eternal y deja VB, Solo te va a dar dolores de cabeza...