Подскажите пожалуйста как нарисовать градуировку шкалы стрелочного индикатора с надписями в VB 6.0.
И как можно по-другому заставить шевелиться линию-стрелку, чтобы она не затирала надписи?
Вот что пока имеется:

Dim x0, y0 As Integer 'центр окружности
Dim r As Integer 'радиус
Private Sub Command1_Click()
Picture1.DrawWidth = 3
Picture1.Circle (5000, 5000), 4075, vbBlack, 5.23, 4.18, 1
x0 = 5000
y0 = 5000

For a = 0 To 90 Step 30 'штрихи
x = Sin(a) * 4500 + x0
y = Cos(a) * 4500 + y0
Picture1.Line (5000, 5000)-(x, y), vbBlack
x = Sin(a) * 3500 + x0
y = Cos(a) * 3500 + y0
Picture1.Line (5000, 5000)-(x, y), &H8000000F
Picture1.DrawWidth = 7
Picture1.PSet (5000, 5000)
Picture1.DrawWidth = 3
Next a


For a = 0 To 360 Step 0.1 'стрелка
x = Sin(a) * 4000 + x0
y = Cos(a) * 4000 + y0
Picture1.Line (5000, 5000)-(x, y), vbBlack
Picture1.Line (5000, 5000)-(x, y), &H8000000F
Picture1.DrawWidth = 7
Picture1.PSet (5000, 5000)
Picture1.DrawWidth = 3
Next a

End Sub
Private Sub Form_Load()
Picture1.Scale (0, 0)-(10000, 10000)
End Sub