Нужно нарисовать секундную стрелку и циферблат

Dim x0, y0
Dim pi, Rt
Dim r
 
 
'на форме Shape1(0),Line1,Timer1
Private Sub Form_Load()
Me.AutoRedraw = True
Me.BackColor = RGB(150, 200, 250)
pi = 4 * Atn(1)
r = 120:
With Shape1(0)
  .Width = 2 * r: .Height = 2 * r: .Shape = 3: .Visible = False
End With
For i = 1 To 4
    Load Shape1(i)
Next i
Line1.BorderWidth = 2: Line1.BorderColor = vbRed
Timer1.Interval = 1000: Timer1.Enabled = True
End Sub
Private Sub F_Load()
Cls
x0 = Me.Width / 2: y0 = Me.Height / 2
 Rt = Me.Height / 3
For i = 1 To 4
    Shape1(i).Visible = True
    Shape1(i).Top = y0 + Rt * Cos((i - 1) * pi / 2) - r
    Shape1(i).Left = x0 + Rt * Sin((i - 1) * pi / 2) - r
Next i
Line1.X1 = x0: Line1.Y1 = y0
For i = Rt To 1 Step -Rt \ 20
    cl = i * 255 / Rt
    Me.Circle (x0, y0), i, RGB(cl, cl, cl)
Next i
 
End Sub
Private Sub Form_Resize()
F_Load
End Sub
 
Private Sub Timer1_Timer()
s = Second(Time)
Line1.X2 = x0 + Rt * Sin(s * 2 * pi / 60)
Line1.Y2 = y0 - Rt * Cos(s * 2 * pi / 60)
End Sub