Fuente de programación VB con efectos animados
Dim x As Boolean
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 100
Fin Sub
Private Sub Timer1_Timer()
Label1.Caption = "hola mundo"
Label1.AutoSize = True
Si x = True Entonces
Etiqueta1.Izquierda = Etiqueta1.Izquierda - 100