vb 如何在picture控件中绘制雷达图

添加一个timer，一个picture控件

Private Sub Form_Load()
Timer1.Enabled = True: Timer1.Interval = 1
Me.AutoRedraw = True: Me.BackColor = 0
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2
End Sub

Private Sub Timer1_Timer()
Static sAlpha As Single, sX As Long, sY As Long
If sAlpha <= 0 Then sAlpha = 6.28
sAlpha = sAlpha - 0.04: picture1.Cls
DrawRaida picture1.Width / 2, picture1.Height / 2, 1000, sAlpha
If Round(sAlpha, 2) = 6.24 Then sX = (1000 * Rnd) * Cos(5.1) + picture1.Width / 2: _
sY = (1000 * Rnd) * Sin(5.1) + picture1.Height / 2
If CInt(sAlpha) < 6 And CInt(sAlpha) > 4 Then
picture1.DrawWidth = 3
picture1.PSet (sX, sY), RGB(2550, 2550, 0)
picture1.DrawWidth = 1 ': Beep
End If
End Sub

Sub DrawRaida(ByVal drX As Long, ByVal drY As Long, ByVal drRds As Integer, ByVal drAlpha As Single)
Dim rX As Long, rY As Long, bGClr As Byte<