ANIMACION CON TEXTO

Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = True
Timer2.Interval = 100
Timer2.Enabled = False
End Sub

Private Sub Timer1_Timer()
Label1.ForeColor = &HC0C0&
Label1.FontSize = Label1.FontSize + 4
If Label1.FontSize >= 40 Then
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Sub

Private Sub Timer2_Timer()
Label1.ForeColor = &HFF00&
Label1.FontSize = Label1.FontSize - 4
If Label1.FontSize <= 30 Then
Timer1.Enabled = True
Timer2.Enabled = False
End If
End Sub