Zoom компонента Chart колесиком мышки

Public Sub Chart1_MouseWheel(sender As Chart, e As MouseEventArgs)
        On Error Resume Next
        If Form1.mScroll.Checked Then
            If e.Delta < 0 Then
                sender.ChartAreas(0).AxisX.ScaleView.ZoomReset()
                sender.ChartAreas(0).AxisY.ScaleView.ZoomReset()
 
            ElseIf e.Delta > 0 Then
                Dim xMin = sender.ChartAreas(0).AxisX.ScaleView.ViewMinimum
                Dim xMax = sender.ChartAreas(0).AxisX.ScaleView.ViewMaximum
                Dim yMin As Integer = sender.ChartAreas(0).AxisY.ScaleView.ViewMinimum
                Dim yMax As Integer = sender.ChartAreas(0).AxisY.ScaleView.ViewMaximum
 
                Dim posXStart = sender.ChartAreas(0).AxisX.PixelPositionToValue(e.Location.X) - (xMax - xMin) / 2
                Dim posXFinish = sender.ChartAreas(0).AxisX.PixelPositionToValue(e.Location.X) + (xMax - xMin) / 2
                Dim posYStart As Integer = sender.ChartAreas(0).AxisY.PixelPositionToValue(e.Location.Y) - (yMax - yMin) / 2
                Dim posYFinish As Integer = sender.ChartAreas(0).AxisY.PixelPositionToValue(e.Location.Y) + (yMax - yMin) / 2
 
                sender.ChartAreas(0).AxisX.ScaleView.Zoom(posXStart, posXFinish, DateTimeIntervalType.NotSet, True)
                sender.ChartAreas(0).AxisY.ScaleView.Zoom(posYStart, posYFinish, DateTimeIntervalType.Number, True)
            End If
        End If
    End Sub