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