Visual Basic.NET - ¿Cómo puedo hacer un gráfico con varias series de valores?

Private Sub evolucion_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        ListBox1.Visible = True

        ListBox2.Visible = True

        ListBox3.Visible = True

        ListBox4.Visible = True

        conexion.Open()

        Dim consultaSql As String = "SELECT sistolica,diastolica,pulsaciones,saturacion FROM valores ORDER BY fecha;"

        Dim comando As OleDbCommand = New OleDbCommand(consultaSql, conexion)

        Dim lector As OleDbDataReader

        lector = comando.ExecuteReader

        lector.Read()

        ListBox1.Items.Clear()

        ListBox2.Items.Clear()

        ListBox3.Items.Clear()

        ListBox4.Items.Clear()

        While (lector.Read)

            ListBox1.Items.Add(lector(0))

            ListBox2.Items.Add(lector(1))

            ListBox3.Items.Add(lector(2))

            ListBox4.Items.Add(lector(3))

        End While

        lector.Close()

        conexion.Close()

        Dim contador As Integer = 0

        Dim elementos As Integer = ListBox1.Items.Count

        Chart1.Titles.Clear()

        Chart1.Titles.Add(" VARIACIONES EN LOS VALORES DE LAS TOMAS")

        Chart1.Series(0).LegendText = "Valores."

        Chart1.BackColor = Color.Aqua

        Chart1.BackSecondaryColor = Color.Gainsboro

        Chart1.BackGradientStyle = GradientStyle.TopBottom

        Chart1.BorderlineDashStyle = ChartDashStyle.Solid

        Chart1.BorderSkin.SkinStyle = BorderSkinStyle.Emboss

        Chart1.BorderlineColor = Color.Bisque

        Chart1.ChartAreas(0).AxisX.Interval = 2

        Chart1.ChartAreas(0).AxisY.Interval = 0.5

        Chart1.ChartAreas(0).AxisY.Minimum = 0

        Chart1.Series(0).Color = Color.Bisque

        Chart1.Series(0).Name = "TENSIÓN"

        For contador = 0 To elementos - 1

            Chart1.Series(0).Points.AddY(ListBox1.Items.Item(contador))

            Chart1.Series(0).Points.AddY(ListBox2.Items.Item(contador))

            Chart1.Series(0).Points.AddY(ListBox3.Items.Item(contador))

            Chart1.Series(0).Points.AddY(ListBox4.Items.Item(contador))

        Next

    End Sub