如何在vb.net中用单表创建多折线图

Imports System.Windows.Forms.DataVisualization.Charting

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim chart As New Chart()
        chart.Size = New Size(500, 300)
        chart.ChartAreas.Add("ChartArea1")
        chart.Legends.Add("Legend1")

        Dim series1 As New Series()
        series1.Name = "Series1"
        series1.ChartType = SeriesChartType.Line
        series1.BorderWidth = 2
        series1.Color = Color.Blue

        series1.Points.AddXY(1, 10)
        series1.Points.AddXY(2, 20)
        series1.Points.AddXY(3, 30)

        Dim series2 As New Series()
        series2.Name = "Series2"
        series2.ChartType = SeriesChartType.Line
        series2.BorderWidth = 2
        series2.Color = Color.Red

        series2.Points.AddXY(1, 5)
        series2.Points.AddXY(2, 15)
        series2.Points.AddXY(3, 25)

        chart.Series.Add(series1)
        chart.Series.Add(series2)

        Me.Controls.Add(chart)
    End Sub
End Class