With ChartEngine
                    Dim ymax As Integer = CInt(MaxHPRPM)
 
                    .ChartAreas.Clear()
                    .Series.Clear()
 
                    ' Add Chart Area to the Chart
                    Dim EngineArea As ChartArea = New ChartArea("EngineArea")
                    .ChartAreas.Add(EngineArea)
 
                    ' Add Series to the Chart
                    Dim SerHP As Series = New Series("SerHP")
                    .Series.Add(SerHP)
 
                    ' Add Legend to the Chart
                    '                   .Legends.Clear()
                    '                    .Legends.Add("LegGear")
 
                    ' Add Title
                    .Titles.Clear()
                    .Titles.Add("Engine") 'CarNameFromHDC)
                    .Titles(0).Font = New Font("Microsoft Sans Serif", 14, _
                      FontStyle.Bold)
                    .Titles(0).ForeColor = Color.DodgerBlue
                    .Titles(0).ShadowOffset = 1
                    .Titles(0).ShadowColor = Color.FromArgb(128, 0, 0, 0)
 
                    'Dim myLine As LineAnnotation = New LineAnnotation()
                    'myLine.Name = "myLine"
                    'myLine.X = 3
                    'myLine.Y = 3
                    '.Annotations.Add(myLine)
 
                    With .Series("SerHP")
                        Dim OldVal As Integer = yv(0)
                        For i As Integer = 0 To dtEngine.Rows.Count - 1
                            Dim dp As New DataPoint
                            dp.XValue = CInt(dtEngine.Rows(i).Item(0))
                            dp.YValues = {CInt(dtEngine.Rows(i).Item(3))}
 
                            ' xv = RPM
                            ' yv = HP
 
                            ' Horsepower Labels (value in number)
                            If yv(i) > 20 And OldVal < yv(i) And xv(i) < _
                              MaxHPRPM + 250 Then
                                dp.Label = yv(i).ToString ' HP
                            End If