Построить график аппроксимации

Private Sub Command1_Click()
 Dim x(40) As Single, y(40) As Single, Msg As String, D As Single, Y1(40) As Single, X1(40) As Single
        Dim a As Integer, i As Integer, j As Integer, n As Integer, k As Single, B As Single, Sigma As Single
        Dim s
        Dim SY As Single, SX As Single, SXY As Single, SQX As Single, YSR As Single    
        n = 10              
        SX = 0: SY = 0: SQX = 0: SXY = 0: YSR = 0
    
   For i = 1 To n
    x(i) = 0
   Next i
   For j = 1 To n
    y(j) = 0
   Next j  
   For i = 1 To n
   Y1(i) = 0
   Next i
 
For i = 1 To 20
Text1.Text = Text1.Text & x(i) & vbCrLf
Next i
    
         For i = 1 To n
          Msg = "Vvedite X(" & i & ")"
          x(i) = Val(InputBox(Msg))
         Next i         
         For j = 1 To n
          Msg = "Vvedite Y(" & j & ")"
          y(j) = Val(InputBox(Msg))
         Next j
                
         For i = 1 To n       
            SX = SX + x(i)
            SQX = SQX + x(i) * x(i)                    
        Next i
               
         For j = 1 To n
          SY = SY + y(j)
         Next j
         
For j = 1 To n
k = (SX * SY - n * SX * y(j)) / (SX * SX - n * SQX)
Next j
   
        B = (SY - k * SX) / n
        YSR = SY / n - 1       
        D = 0     
        For j = 1 To n
            D = D + (YSR - y(j)) * (YSR - y(j))
        Next j
        Sigma = Sqr(D / (n - 1))
        
        For i = 1 To n
        Y1(i) = k * x(i) + B
        Next i
        
        Msg = "Y = " & k & "*x = " & B & "; Sigma = " & Sigma
        MsgBox (Msg)
        
        Label1.Caption = k
        Label2.Caption = B
        Label3.Caption = Sigma
                
Dim SngX As Single, bytI As Integer, p As Single, SngY As Single
PicGraph.Scale (-0, 20)-(20, -20)
 
'Построение точек на графике
For i = 0 To 20
PicGraph.PSet (x(i), y(i)), vbRed
PicGraph.PSet (x(i), Y1(i)), vbBlue
Next i
 
PicGraph.Line (-20, 0)-(20, 0)
For bytI = 0 To 20
PicGraph.PSet (bytI, 0)
PicGraph.Print bytI;
Next bytI
 
PicGraph.Line (0, 20)-(0, -20)
For bytI = -20 To 20
PicGraph.PSet (0, bytI)
PicGraph.Print bytI
Next bytI
 
End Sub

PicGraph.PSet (x(i), Y1(i)), vbBlue ' Это у вас есть, сразу после
If x > 0 Then
Line (x(i - 1), Y1(i - 1))-(x(i), Y1(i)), vbBlue
End If

Line (x(0), Y1(0))-(x(i), Y1(i)), vbBlue