Dim x As Integer
For x = 0 To 3600
If x <= 300 Then
lblwheel1.Top = lblwheel1.Top + 3
lblwheel2.Top = lblwheel2.Top + 0
lblwheel3.Top = lblwheel3.Top + 0
End If
If x <= 600 Then
lblwheel1.Top = lblwheel1.Top + 3
lblwheel2.Top = lblwheel2.Top + 3
lblwheel3.Top = lblwheel3.Top + 0
End If
If x <= 900 Then
lblwheel1.Top = lblwheel1.Top + 2
lblwheel2.Top = lblwheel2.Top + 3
lblwheel3.Top = lblwheel3.Top + 3
End If
If x <= 1200 Then
lblwheel1.Top = lblwheel1.Top + 2
lblwheel2.Top = lblwheel2.Top + 2
lblwheel3.Top = lblwheel3.Top + 3
End If
If x <= 1500 Then
lblwheel1.Top = lblwheel1.Top + 2
lblwheel2.Top = lblwheel2.Top + 2
lblwheel3.Top = lblwheel3.Top + 2
End If
If x <= 1800 Then
lblwheel1.Top = lblwheel1.Top + 1
lblwheel2.Top = lblwheel2.Top + 2
lblwheel3.Top = lblwheel3.Top + 2
End If
If x <= 2100 Then
lblwheel1.Top = lblwheel1.Top + 1
lblwheel2.Top = lblwheel2.Top + 1
lblwheel3.Top = lblwheel3.Top + 2
End If
If x <= 2400 Then
lblwheel1.Top = lblwheel1.Top + 1
lblwheel2.Top = lblwheel2.Top + 1
lblwheel3.Top = lblwheel3.Top + 1
End If
If x <= 2700 Then
lblwheel1.Top = lblwheel1.Top + 1
lblwheel2.Top = lblwheel2.Top + 1
lblwheel3.Top = lblwheel3.Top + 1
End If
If x <= 3000 Then
lblwheel1.Top = lblwheel1.Top + 0
lblwheel2.Top = lblwheel2.Top + 1
lblwheel3.Top = lblwheel3.Top + 1
End If
If x <= 3300 Then
lblwheel1.Top = lblwheel1.Top + 0
lblwheel2.Top = lblwheel2.Top + 0
lblwheel3.Top = lblwheel3.Top + 1
End If
If x <= 3600 Then
lblwheel1.Top = lblwheel1.Top + 0
lblwheel2.Top = lblwheel2.Top + 0
lblwheel3.Top = lblwheel3.Top + 0
End If
If lblwheel1.Top > 300 Then
lblwheel1.Top = 20
End If
If lblwheel2.Top > 300 Then
lblwheel2.Top = 20
End If
If lblwheel3.Top > 300 Then
lblwheel3.Top = 20
End If
Next