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

Dim x(200) As Double
Dim y(200) As Double
Dim r(2) As Double
Dim l(1) As Double
Dim c As Double
Dim b As Double
Dim g As Integer
Dim i As Integer
Dim k As Integer
Dim A As Double
 
Private Sub Command1_Click()
Picture1.Scale (0, 10)-(10, 0)
Picture1.DrawWidth = 2
k = 0
A = 0.5
For i = 0 To 200
x(i) = 5
y(i) = 5
Next i
If g = 0 Then
Timer1.Enabled = True
Command1.Caption = "Ñòîï"
g = 1
Else
Timer1.Enabled = False
Command1.Caption = "Ïóñê"
g = 0
End If
End Sub
 
Private Sub Command2_Click()
Picture1.Scale (0, 10)-(10, 0)
r(0) = 255 * Rnd
r(1) = 255 * Rnd
r(2) = 255 * Rnd
 
k = 1
A = 0.5
 
x(1) = 5
y(1) = 5
 
If g = 0 Then
Timer1.Enabled = True
Command2.Caption = "Ñòîï"
g = 1
Picture1.Cls
Else
Timer1.Enabled = False
Command2.Caption = "Ïóñê"
g = 0
 
End If
End Sub
 
Private Sub Command3_Click()
Picture1.Cls
End Sub
 
Private Sub Command4_Click()
Picture1.Scale (0, 10)-(10, 0)
r(0) = 255 * Rnd
r(1) = 255 * Rnd
r(2) = 255 * Rnd
 
k = 1
A = 0.5
 
x(1) = l(0)
y(1) = l(1)
 
If g = 0 Then
Timer1.Enabled = True
Command4.Caption = "Ñòîï"
g = 1
Else
Timer1.Enabled = False
Command4.Caption = "Ïóñê"
g = 0
End If
End Sub
 
Private Sub Timer1_Timer()
If k = 0 Then
Picture1.Cls
For i = 1 To 200
x(i) = x(i) + A * (Rnd - 0.5)
y(i) = y(i) + A * (Rnd - 0.5)
Picture1.Circle (x(i), y(i)), 0.05, vbRed
Next i
End If
 
If k = 1 Then
b = x(1)
c = y(1)
l(0) = x(1)
l(1) = y(1)
Picture1.DrawWidth = 2
Picture1.Circle (x(1), y(1)), 0.05, RGB(255, 255, 255)
x(1) = x(1) + A * (Rnd - 0.5)
y(1) = y(1) + A * (Rnd - 0.5)
Picture1.Circle (x(1), y(1)), 0.05, vbRed
Picture1.DrawWidth = 1
Picture1.Line (x(1), y(1))-(b, c), RGB(r(0), r(1), r(2))
End If
End Sub
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Picture1.Scale (0, 100)-(100, 0)
 Y1 = y
 X1 = x
 End Sub