Fuente de programación VB con efectos animados

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