Dim htr As HitTestResult = ChartEngine.HitTest(e.X, e.Y)
 
        MouseOverDataPoint = Nothing
        If htr.ChartElementType = ChartElementType.DataPoint Then
            MouseOverDataPoint = ChartEngine.Series(htr.Series.Name).Points( _
              htr.PointIndex)
 
            With MouseOverDataPoint
                .MarkerStyle = MarkerStyle.Star6
                .MarkerColor = Color.Orange
                .MarkerSize = 14
            End With
        End If