Соединить концы линий графика - VB

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

надо в общем соединить концы линией щас так: а надо так: отрывок текста проги:

Picture1.Cls
Picture1.Scale (0, max + (max * 0.1))-(220, -(max * 0.1))
Picture1.Line (10, 0)-(200, 0)
Picture1.Line (10, 0)-(10, max)
j = 0
For i = 10 To 200 Step 10
n = i
Picture1.Line (i, m(j))-(i + 10, 0), vbBlue
Picture1.ForeColor = vbRed
Picture1.CurrentX = i
Picture1.CurrentY = m(j)
Picture1.Print (Round(m(j), 5))
 
Write #1, "n = " & i & " d = " & Round(m(j), 4)

Решение задачи: «Соединить концы линий графика»

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

                            Private Sub Command2_Click() 'кнопка отчистки
Picture1.BackColor = vbWhite
 
End Sub
 
Private Sub Command3_Click()
Dim x As Single
Dim i As Integer
Const k = 0.5
Picture1.ForeColor = vbBlack 'Установка цвета линий
Picture1.Scale (-10, 2)-(10, -2) 'система координат
Picture1.Line (-10, 0)-(10, 0) 'Ось ОХ
Picture1.DrawWidth = 3  'ширина точек
For i = -10 To 10
Picture1.PSet (i, 0)
Picture1.Print i
Next i
Picture1.DrawWidth = 1
Picture1.Line (0, 2)-(0, -2) 'Ось ОУ
Picture1.DrawWidth = 3
For i = -2 To 2
Picture1.PSet (0, i)
Picture1.Print i
Next i
Picture1.ForeColor = vbBlack 'цвет графика
For x = -10 To 10 Step 0.01 'рисуем график
Picture1.PSet (x, (Sin(x) ^ 2) / (1 + 2 * k * Cos(x) + k ^ 2))
Next x
End Sub
 
Private Sub Command4_Click() 'кнопка выхода
End
End Sub
                        