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
Código
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!!!