我想在vb.net中画一个折线图，然后根据这个图表进行计算

Imports System.Windows.Forms.DataVisualization.Charting

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 创建一个Chart控件
        Dim chart1 As New Chart()

        ' 设置Chart控件的大小和位置
        chart1.Size = New Size(400, 300)
        chart1.Location = New Point(10, 10)

        ' 创建一个ChartArea对象，并设置其属性
        Dim chartArea1 As New ChartArea()
        chartArea1.AxisX.Title = "X轴"
        chartArea1.AxisY.Title = "Y轴"

        ' 将ChartArea对象添加到Chart控件中
        chart1.ChartAreas.Add(chartArea1)

        ' 创建一个Series对象，并设置其属性
        Dim series1 As New Series()
        series1.ChartType = SeriesChartType.Line
        series1.Name = "折线图"

        ' 添加数据点
        series1.Points.AddXY(1, 10)
        series1.Points.AddXY(2, 20)
        series1.Points.AddXY(3, 15)
        series1.Points.AddXY(4, 25)

        ' 将Series对象添加到Chart控件中
        chart1.Series.Add(series1)

        ' 将Chart控件添加到窗体中
        Me.Controls.Add(chart1)

        ' 计算折线图的最大值、最小值和平均值
        Dim maxValue As Double = series1.Points.Max(Function(p) p.YValues(0))
        Dim minValue As Double = series1.Points.Min(Function(p) p.YValues(0))
        Dim averageValue As Double = series1.Points.Average(Function(p) p.YValues(0))

        ' 显示计算结果
        MessageBox.Show($"最大值：{maxValue}" & vbCrLf &
                        $"最小值：{minValue}" & vbCrLf &
                        $"平均值：{averageValue}")
    End Sub
End Class