Public vel
Private Sub Command1_Click()
Picture1.Scale (-100, 100)-(100, -100)
Picture1.Visible = True
Timer1.Enabled = True 'Включаем таймер
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Option1_Click(Index As Integer)
Select Case Index
    Case 0
        vel = 100000000
    Case 1
        vel = 10000000
    Case 2
        vel = 1000000
    Case 3
        vel = 100000
    Case 4
        vel = 10000
End Select
End Sub

Private Sub Timer1_Timer()
Dim n As Long, radian As Single
Timer1.Enabled = False 'отключаем таймер

For radian = 6.28 To 0 Step -0.01 'Цикл от 0 до 6.28 радиан
Picture1.DrawWidth = 5
Picture1.Cls 'очистка окна
Picture1.FillColor = QBColor(4)
Picture1.Circle (0, 0), 2, QBColor(4)
Picture1.Line (0, 0)-(x, y), QBColor(3)
Picture1.Line (0, 50 + y)-(x, y), QBColor(6) 'шатун
Picture1.Circle (0, 50 + y), 2, QBColor(4)

x = 12 * Cos(radian * 10)
y = 12 * Sin(radian * 10)

Picture1.FillColor = QBColor(1)
Picture1.Circle (x, y), 3, QBColor(1)

Picture1.DrawWidth = 1
'корпус
Picture1.Circle (0, 0), 40.5, QBColor(7), 3.2, 6.2
'клапана
Picture1.Line (-25, 0)-(-25, 80 - y / 10), QBColor(8)
Picture1.Line (-24, 80 - y / 10)-(-26, 80 - y / 10), QBColor(8)
Picture1.Circle (-25, 0), 3, QBColor(1)
'Image1.Visible = True
Picture1.Line (25, 0)-(25, 80 + y / 10), QBColor(8)
Picture1.Line (24, 80 + y / 10)-(26, 80 + y / 10), QBColor(8)
Picture1.Circle (25, 0), 3, QBColor(1)

'цилиндр
Picture1.Line (0 - 10, 40 + y)-(0 + 10, 40 + y), QBColor(8)
Picture1.DrawWidth = 3
Picture1.Line (0 - 10, 40 + y)-(0 - 10, y + 65), QBColor(8)
Picture1.Line (0 + 10, 40 + y)-(0 + 10, y + 65), QBColor(8)
Picture1.Line (0 - 10, 65 + y)-(0 + 10, y + 65), QBColor(8)
Image1.Visible = False
Image2.Visible = False
Image3.Visible = False

If y < 0 And x < 0 Then
Image2.Visible = True
Label1.Caption = "Впрыск топлива"
End If
If y > 0 And x < 0 Then
'Image2.Visible = True
Label1.Caption = "Сжатие"
End If
If y < 0 And x > 0 Then
Image3.Visible = True
Label1.Caption = "Выход отработанных газов"
End If
If y > 0 And x > 0 Then
Image3.Visible = True
Label1.Caption = "Рабочий ход"
End If
If y >= 11 Then
Image1.Visible = True
Label1.Caption = "Зажигание смеси"
End If

For n = 0 To vel: Next n 'Задержка

Next radian

'Timer1.Enabled = True 'Включаем таймер
End Sub