Private Sub Command1_Click()
Picture1.Scale (-100, 100)-(100, -100)
Picture2.Scale (-100, 100)-(100, -100)
Timer1.Enabled = True 'Включаем таймер
Picture2.FillColor = QBColor(14)
Picture2.Circle (x, y), 50, QBColor(14)
End Sub

Private Sub Command3_Click()
Timer1.Enabled = False 'отключаем таймер
End
End Sub

Private Sub Timer1_Timer()
Timer1.Enabled = False 'отключаем таймер
For radian = 0 To 6.28 Step 0.001 'Цикл от 0 до 6.28 радиан
Picture1.Cls 'очистка окна
x = 40 * Cos(radian * 5)
y = 40 * Sin(radian * 5)
Picture1.Circle (x, y), 1, QBColor(7) 'меркурий
x = 55 * Cos(radian * 4)
y = 55 * Sin(radian * 4)
Picture1.Circle (x, y), 2, QBColor(2) 'венера
x = 70 * Cos(radian * 3)
y = 70 * Sin(radian * 3)
Picture1.Circle (x, y), 2, QBColor(9) 'земля
x = 80 * Cos(radian * 2)
y = 80 * Sin(radian * 2)
Picture1.Circle (x, y), 2, QBColor(4) 'марс
x = 95 * Cos(radian)
y = 95 * Sin(radian)
Picture1.Circle (x, y), 3, QBColor(8) 'юпитер
Next radian
Timer1.Enabled = True 'Включаем таймер
End Sub