Данные из массива в график

Imports System.Windows.Forms.DataVisualization.Charting
Public Class Form2
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Chart1.Series.Clear()
        Dim srY1 As Series = Chart1.Series.Add("varY1")
        Dim srY2 As Series = Chart1.Series.Add("varY2")
        Dim srY3 As Series = Chart1.Series.Add("varY3")
        With Chart1.ChartAreas(0).AxisX
            .Interval = 1
            .MajorGrid.LineColor = Color.LightGray
            .Title = "Глубина (м)"
            .TitleForeColor = Color.Blue
            .TitleFont = New Font(FontFamily.GenericMonospace, 12)
            .IsMarginVisible = False
        End With
        SetupSeries(ListBox1.Items, ListBox2.Items, srY1, Color.Red, "Нисходящий поток")
        SetupSeries(ListBox1.Items, ListBox3.Items, srY2, Color.Green, "Восходящий поток")
        SetupSeries(ListBox1.Items, ListBox4.Items, srY3, Color.Gold, "Горные породы")
    End Sub
    Private Sub SetupSeries(ByVal lstX As ListBox.ObjectCollection, ByVal lstY As ListBox.ObjectCollection, _
                            ByRef sr As Series, ByVal srColor As Color, ByVal srTitle As String)
        With Chart1.ChartAreas(0).AxisY
            .Interval = 1
            .MajorGrid.LineColor = Color.LightGray
        End With
        With sr
            .IsVisibleInLegend = True
            .Color = srColor
            .BorderWidth = 2
            .ChartType = SeriesChartType.Line
            .IsValueShownAsLabel = False
            .LabelForeColor = Color.Black
            .LegendText = srTitle
            For i = 0 To lstY.Count - 1
                .Points.AddXY(lstX(i), lstY(i))
            Next
        End With
    End Sub
End Class