如何在Visual Basic中在图表上绘制垂直线

' 引用System.Windows.Forms.DataVisualization.Charting命名空间
Imports System.Windows.Forms.DataVisualization.Charting

' 创建一个Chart控件
Dim chart1 As New Chart()

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

' 创建一个Series对象
Dim series1 As New Series("VerticalLine")

' 设置Series对象的ChartType属性为Line
series1.ChartType = SeriesChartType.Line

' 添加垂直线的数据点
series1.Points.AddXY(10, 0)
series1.Points.AddXY(10, chart1.ChartAreas(0).AxisY.Maximum)

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

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