1 Private Sub Chart1_MouseLeftButtonDown(ByVal sender As Object, ByVal e As System.Windows.Input.MouseButtonEventArgs Handles Chart1.MouseLeftButtonDown 2      'Setting the Focus manually.
 3      'Without forcing this Focus, the keyboard events are not recognised.
 4       Chart1.Focus() 5 End Sub 6   
 7 Private Sub Chart1_PreviewKeyDown(ByVal sender As Object, ByVal e As System.Windows.Input.KeyEventArgs) Handles Chart1.PreviewKeyDown 8       Chart1.View.AxisX.MinScale = 0.001 
 9       Chart1.View.AxisY.MinScale = 0.001 
10   
11       'Checking the pressed key
12       If e.Key = Key.Down Then13            Chart1.BeginUpdate()14   
15            'Decreasing the scale values in order to ZoomIn
16            Chart1.View.AxisX.Scale = Chart1.View.AxisX.Scale - 0.35 
17            Chart1.View.AxisY.Scale = Chart1.View.AxisY.Scale - 0.35 
18   
19            UpdateScrollbars()20            Chart1.EndUpdate()21   
22       ElseIf e.Key = Key.Up Then23            Chart1.BeginUpdate()24   
25           'Increasing the scale values in order to ZoomOut
26            Chart1.View.AxisX.scale = Chart1.View.AxisX.Scale + 0.35 
27            Chart1.View.AxisY.Scale = Chart1.View.AxisY.Scale + 0.35 
28   
29            UpdateScrollbars()30            Chart1.EndUpdate()31   
32       ElseIf e.Key = Key.Escape Then33            Chart1.BeginUpdate()34   
35            'Setting the Scale to Default Value
36            Chart1.View.AxisX.Scale = 1 
37            Chart1.View.AxisY.Scale = 1 
38   
39            UpdateScrollbars()40            Chart1.EndUpdate()41       End If42 End Sub