Написать код чтобы спица колеса двигалась по окружности

'спица 1
For gradus = 1 To 90
 
start = Timer
   Do While Timer < start + 0.05
DoEvents
Loop
 
rad = gradus / 180 * 3.14159
 
 
 
Line1.X2 = Line1.X2 - (600 - 600 * Cos(rad))
Line1.Y2 = Line1.Y2 - 600 * Sin(rad)
Next

Private Sub Timer1_Timer()
'Êîëåñî 1
 
 
    'ñïèöà1
    Rad = Rad + 0.01
 
    Line1.X1 = 5280
    Line1.X2 = Line1.X1 + 600 * Cos(Rad)
    Line1.Y2 = Line1.Y1 + 600 * Sin(Rad)
 
  
    'ñïèöà2
 
    Line2.X1 = 5280
    Line2.X2 = Line2.X1 + 600 * Cos(Rad + 90)
    Line2.Y2 = Line2.Y1 + 600 * Sin(Rad + 90)
 
    'ñïèöà3
 
    Line3.X1 = 5280
    Line3.X2 = Line3.X1 + 600 * Cos(Rad + 180)
    Line3.Y2 = Line3.Y1 + 600 * Sin(Rad + 180)
 
    'Îêðóæíîñòü
    Shape3.Left = Shape3.Left + 15

Option Explicit
Const PI = 3.14159265358979
Const Deg = PI / 180
Dim Grad As Integer
 
Private Sub Form_Load()
      Me.Height = 6000
      Me.Width = Me.Height
      Scale (-10, -10)-(10, 10)
      AutoRedraw = True
      DrawWidth = 2
      Timer1.Interval = 10
End Sub
 
Private Sub Timer1_Timer()
Dim i As Integer
    Cls
    If Grad < 360 Then Grad = Grad + 1 Else Grad = 0
    For i = 0 To 360 Step 10
      Line (Cos((Grad - i) * Deg) * 1, Sin((Grad - i) * Deg) * 1)- _
           (Cos((Grad - i) * Deg) * 9, Sin((Grad - i) * Deg) * 9)
      Line (Cos((Grad - i) * Deg) * 9, Sin((Grad - i) * Deg) * 9)- _
           (Cos((Grad - i + 10) * Deg) * 9, Sin((Grad - i + 10) * Deg) * 9)
      Line (Cos((Grad - i) * Deg) * 1, Sin((Grad - i) * Deg) * 1)- _
           (Cos((Grad - i + 10) * Deg) * 1, Sin((Grad - i + 10) * Deg) * 1)
    Next i
End Sub