Построение точек в ZedGraph, по данным из DataGridView

       
        'Создаю три набора данных 
        Dim list As New PointPairList
        Dim list2 As New PointPairList
        Dim list3 As New PointPairList
    
 
        For ix = 0 To DataGridView1.Rows.Count - 1
 
            list.Add(DataGridView1.Rows(0).Cells(ix).Value, DataGridView1.Rows(1).Cells(ix).Value)
            list2.Add(DataGridView1.Item(2, ix).Value, DataGridView1.Item(3, ix).Value)
            list3.Add(DataGridView1.Item(4, ix).Value, DataGridView1.Item(5, ix).Value)
        Next ix

 Private Sub DataGridView1_Loa(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs)
        If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.C Then
            ' Add the selection to the clipboard.
            Clipboard.SetDataObject( _
                Me.DataGridView1.GetClipboardContent())
        End If
    End Sub
    Private Sub DataGridView1_Load(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyDown
        If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.V Then
            Dim rowSplitter As Char() = {vbCr, vbLf}
            Dim columnSplitter As Char() = {vbTab}
 
            'get the text from clipboard
 
            Dim dataInClipboard As IDataObject = Clipboard.GetDataObject()
            Dim stringInClipboard As String = CStr(dataInClipboard.GetData(DataFormats.Text))
 
            'split it into lines
            Dim rowsInClipboard As String() = stringInClipboard.Split(rowSplitter, StringSplitOptions.RemoveEmptyEntries)
 
            'get the row and column of selected cell in grid
            Dim r As Integer = DataGridView1.SelectedCells(0).RowIndex
            Dim c As Integer = DataGridView1.SelectedCells(0).ColumnIndex
 
            'add rows into grid to fit clipboard lines
            If (DataGridView1.Rows.Count < (r + rowsInClipboard.Length)) Then
                DataGridView1.Rows.Add(r + rowsInClipboard.Length - DataGridView1.Rows.Count)
            End If
 
            ' loop through the lines, split them into cells and place the values in the corresponding cell.
            Dim iRow As Integer = 0
            While iRow < rowsInClipboard.Length
                'split row into cell values
                Dim valuesInRow As String() = rowsInClipboard(iRow).Split(columnSplitter)
                'cycle through cell values
                Dim iCol As Integer = 0
                While iCol < valuesInRow.Length
                    'assign cell value, only if it within columns of the grid
                    If (DataGridView1.ColumnCount - 1 >= c + iCol) Then
                        DataGridView1.Rows(r + iRow).Cells(c + iCol).Value = valuesInRow(iCol)
                    End If
                    iCol += 1
                End While
                iRow += 1
            End While
        End If
    End Sub