PROGRAMACION CON UN TIMER

Private Sub Form_Load()
Timer1.Interval = 20
Timer1.Enabled = True
Timer2.Interval = 20
Timer2.Enabled = False
Timer3.Interval = 20
Timer3.Enabled = False
Timer4.Interval = 20
Timer4.Enabled = False
Timer5.Interval = 20
Timer5.Enabled = False
Timer6.Interval = 20
Timer6.Enabled = False
Timer7.Interval = 20
Timer7.Enabled = False
Timer8.Interval = 20
Timer8.Enabled = False
Label5.Visible = False
End Sub

Private Sub Timer1_Timer()
Label1.Top = Label1.Top - 27
If Label1.Top <= 0 Then
Timer1.Enabled = False
Timer2.Enabled = True
End If
End Sub
Private Sub Timer2_Timer()
Label1.ForeColor = &HFF&
Label2.Top = Label2.Top + 27
If Label2.Top >= 8000 Then
Timer2.Enabled = False
Timer3.Enabled = True
End If
End Sub
Private Sub Timer3_Timer()
Label3.Left = Label3.Left - 27
If Label3.Left <= 8000 Then
Timer3.Enabled = False
Timer4.Enabled = True
End If
End Sub

Private Sub Timer4_Timer()
Label3.Top = Label3.Top + 27
If Label3.Top >= 8200 Then
Timer4.Enabled = False
Timer5.Enabled = True
End If
End Sub

Private Sub Timer5_Timer()
Label4.Left = Label4.Left + 27
If Label4.Left >= 8000 Then
Timer5.Enabled = False
Timer6.Enabled = True
End If
End Sub

Private Sub Timer6_Timer()
Label4.Top = Label4.Top + 27
If Label4.Top >= 8400 Then
Timer6.Enabled = False
Timer7.Enabled = True
End If
End Sub

Private Sub Timer7_Timer()
Label5.Visible = True
Label5.ForeColor = &HC0C0&
Label5.FontSize = Label5.FontSize + 4
If Label5.FontSize >= 15 Then
Timer7.Enabled = False
Timer8.Enabled = True
End If
End Sub

Private Sub Timer8_Timer()
Label5.Visible = True
Label5.ForeColor = &HFF0000
Label5.FontSize = Label5.FontSize - 4
If Label5.FontSize <= 10 Then
Timer8.Enabled = False
Timer9.Enabled = True
End If
End Sub

Private Sub Timer9_Timer()
Label5.Visible = True
Label5.ForeColor = &HFF0000
Label5.FontSize = Label5.FontSize + 4
If Label5.FontSize >= 15 Then
Timer8.Enabled = True
Timer9.Enabled = False
End If
End Sub