.
:

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