With ChartGearbox
                    Dim ymax As Integer = CInt(MaxHPRPM)  ' yv.Max
                    .DataSource = dtGearSpeed
 
                    .ChartAreas.Clear()
                    .Series.Clear()
 
                    ' Add Chart Area to the Chart
                    Dim GearArea As ChartArea = New ChartArea("GearArea")
                    .ChartAreas.Add(GearArea)
 
                    ' Add Series to the Chart
                    Dim Gear As Series = New Series("SerGear")
                    .Series.Add(Gear)
 
                    Dim xv() As Integer
                    Dim yv() As Integer
                    For i As Integer = 0 To dtGearSpeed.Rows.Count - 1
                        xv = {CInt(dtGearSpeed.Rows(i)(0))}
                        yv = {(CInt(dtGearSpeed.Rows(i)(1)))}
                    Next
 
                    With .Series("SerGear")
                        For i As Integer = 0 To dtGearSpeed.Rows.Count - 1
                            Dim dp As New DataPoint
 
                            dp.XValue = xv(i)
                            dp.YValues = {yv(i)}
 
                            If xv(i) > 0 And yv(i) < ymax Then
                                dp.Label = xv(i).ToString
                            End If
 
                            If yv(i) = ymax Then
                                dp.MarkerStyle = MarkerStyle.Circle
                                dp.MarkerSize = 10
                                dp.MarkerColor = Color.LimeGreen
                            Else
                                dp.MarkerStyle = MarkerStyle.None
                            End If
                            .Points.Add(dp)
                        Next
                        .XValueMember = dtGearSpeed.Columns(0).ColumnName
                        .YValueMembers = dtGearSpeed.Columns(1).ColumnName
                        .ChartType = SeriesChartType.Line
                        .BorderWidth = 3
 
                    End With
 
                    With .ChartAreas("GearArea").AxisX
                        .Minimum = 0
                        .Maximum = MaxSpeedRounded
 
                        .MinorGrid.Enabled = False
                        .MajorGrid.Interval = 50
                        .MajorGrid.LineDashStyle = ChartDashStyle.Dot
                        .MajorTickMark.Enabled = False
                        .MinorTickMark.Enabled = False
 
                        With .LabelStyle
                            .IntervalOffset = 0
                            .Interval = 50
                            .IntervalType = DateTimeIntervalType.Number
                        End With
                    End With
 
                    With .ChartAreas("GearArea").AxisY
                        .Minimum = 0
                        .Maximum = MaxRPM
 
                        .MinorGrid.Enabled = False
                        .MajorGrid.Interval = 1000
                        .MajorGrid.LineDashStyle = ChartDashStyle.Dash
 
                        With .LabelStyle
                            .IntervalOffset = 0
                            .Interval = 1000
                            .IntervalType = DateTimeIntervalType.Number
                        End With
                    End With
                End With