Foro de elhacker.net

HOLA!!!

Este efecto hace que el formulario se vaya agrandando hasta llegar a su tamaño original, buen efecto, para lograr un acabado diferente se puede quitar la linea que dice Me.Visible = False y la linea que dice Me.Visible = True asi queda otro efecto.

Recomiendo poner StartUpPosition = 2 antes de Ejecutar

Private Alto as integer
Private Largo as integer
Private Aux as Double
 
Private Sub Form_Initialize()
    Me.Visible = False
    Alto = Me.Height
    Largo = Me.Width
    Aux = 10
    Timer1.interval = 10
End Sub
 
Private Sub Timer1_Timer()
    Me.Visible = True
    Aux = Aux - (Aux / 10)
    Me.Height = Alto / Aux
    Me.Width = Largo / Aux
    If Aux < 1 Then
        Me.Height = Alto
        Me.Width = Largo 
        Timer1.Interval = 0
        Timer1.Enabled = False
    End If
End Sub

GRACIAS POR LEER!!!

Es Width, no Widht...
Ahora no tengo mucho tiempo para revisar, pero no me funciona... :-(

DoEvents! :P

HOLA!!!

XD Es cierto, ahora ya funciona perfecto ;).

GRACIAS POR LEER!!!

Cierto, me recuerda a esto que hice en mis comienzos:
http://goo.gl/u6wgr

También mira esto:
http://allapi.mentalis.org/apilist/AnimateWindow.shtml

DoEvents! :P