График через Chart. [VB10]

[Kerr]

Доброго времени суток. Имеется работа в ходе которой я ввожу необходимые данные, вывожу их в таблицу DataGridView. Так вот мне необходимо построить график по данным DataGridView с использованием 1-ой кнопки, при нажатии которой будет происходить как решение, так и построение графика.
Сам код:

Public Class Form1
    Private temp As String
    Private x0, y0, xk As Single
    Private h As Single
    Private i, t, n As Integer
    Dim x() As Single
    Dim y() As Single
    Dim y1() As Single
    Dim g() As Single
    Private Property Picture1 As Object
    Function f(ByVal q As Single, ByVal p As Single) As Single
        f = (1 + p ^ 2) / q
    End Function
    Function C(ByVal q As Single, ByVal p As Single) As Single
        C = (Math.Exp(Math.Atan(p))) / q
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        x0 = Val(TextBox1.Text)
        y0 = Val(TextBox2.Text)
        xk = Val(TextBox3.Text)
        h = Val(TextBox4.Text)
        n = Math.Round((xk - x0) / h)
        ReDim x(n)
        ReDim y(n)
        ReDim y1(n)
        ReDim g(n)
        DataGridView1.ColumnCount = 4
        DataGridView1.RowCount = n + 1
        DataGridView1.Columns(0).Name = "X"
        DataGridView1.Columns(1).Name = "Y(Э)"
        DataGridView1.Columns(2).Name = "Y(Э-М)"
        DataGridView1.Columns(3).Name = "G"
        y(0) = y0
        y1(0) = y0
        For i As Integer = 0 To n
            x(i) = Math.Round(x0 + i * h, 3)
            g(i) = Math.Round(Math.Tan(Math.Log(C(x0, y0) * x(i))), 3)
            DataGridView1.Item(0, i).Value = Str(x(i))
            DataGridView1.Item(3, i).Value = Str(g(i))
        Next i
        DataGridView1.Item(1, 0).Value = Str(y0)
        DataGridView1.Item(2, 0).Value = Str(y0)
        For i As Integer = 0 To n - 1
            y(i + 1) = Math.Round(y(i) + f(x(i), y(i)) * h, 3)
            y1(i + 1) = Math.Round(y(i) + h * f(x(i) + (h / 2), y(i) + (h / 2) * f(x(i), y(i))), 3)
            DataGridView1.Item(1, i + 1).Value = Str(y(i + 1))
            DataGridView1.Item(2, i + 1).Value = Str(y1(i + 1))
        Next i
        Chart1.Series("1").Points.AddXY(x(i), g(i))
        Chart1.Series("2").Points.AddXY(x(i), y(i))
        Chart1.Series("3").Points.AddXY(x(i), y1(i))
    End Sub
End Class