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

Формулировка задачи:

Мне нужно написать код чтобы спица двигалась по окружности( спица колеса) чтобы на месте двигалась какие траблы в коде, при запуске спица двигается но она увеличивает свой размер

'спица 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

Решение задачи: «Написать код чтобы спица колеса двигалась по окружности»

textual
                            Листинг программы 
                        

                            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
                        