Получение координат курсора на форме

 Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
    Friend WithEvents Timer1 As System.Windows.Forms.Timer
 
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
    End Sub
 
    Private Sub Form1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Click
        Timer1.Start()
        Timer1.Interval = 1
 
        OvalShape1.X = MousePosition.X
        OvalShape1.Y = MousePosition.Y
 
    End Sub
    Friend WithEvents ShapeContainer1 As Microsoft.VisualBasic.PowerPacks.ShapeContainer
    Friend WithEvents OvalShape1 As Microsoft.VisualBasic.PowerPacks.OvalShape
 
End Class

 Private Sub OvalShape1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OvalShape1.Click
       MessageBox.Show("Поплавок X=" & MousePosition.X & " Y=" & MousePosition.Y)
End Sub

OvalShape1.Left = MousePosition.X
OvalShape1.Top = MousePosition.Y

    Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseClick
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Me.Text = e.Location.ToString
        End If
    End Sub

    Dim isMouseDown As Boolean = False  'Признак удерживания кнопки мыши
    Dim Start_X As Double               'Начальная позиция курсора
    Dim Temp_X As Double                'Позиция курсора при его перемещении (когда зажата кнопка мыши)
 
Private Sub Chart_Graf_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Chart_Graf.MouseDown
        'Нажата средняя кнопка мыши
        If e.Button = Windows.Forms.MouseButtons.Middle Then
            Start_X = Chart_Graf.ChartAreas("Default").Position.X
            isMouseDown = True
            Chart_Graf.Cursor = Cursors.Hand
        End If
End Sub
    
Private Sub Chart_Graf_MouseUp(sender As Object, e As MouseEventArgs) Handles Chart_Graf.MouseUp
        'Отпущена средняя кнопка мыши
        If e.Button = Windows.Forms.MouseButtons.Middle Then
            isMouseDown = False
            Chart_Graf.Cursor = Cursors.Default 'восстанавливаем вид курсора
        End If
End Sub
 
Private Sub Chart_Graf_MouseMove(sender As Object, e As MouseEventArgs) Handles Chart_Graf.MouseMove
        If isMouseDown Then     'Если кнопка мыши удерживается...
            'Вычисляем новые границы графика
            Temp_X = Chart_Graf.ChartAreas("Default").CursorX.Position  'Позиция курсора на графике
            Chart_Graf.ChartAreas("Default").AxisX.Minimum += Temp_X - Start_X
            Chart_Graf.ChartAreas("Default").AxisX.Maximum += Temp_X - Start_X
        End If
End Sub

    'Указатель мыши перемещается по элементу
    Private Sub Chart_Graf_MouseMove(sender As Object, e As MouseEventArgs) Handles Chart_Graf.MouseMove
        'Получаем положение курсора на графике
        Label_X.Text = Chart_Graf.ChartAreas("Default").CursorX.Position
        Label_Y.Text = Chart_Graf.ChartAreas("Default").CursorY.Position
    End Sub
 
    'Указатель мыши покидает элемент
    Private Sub Chart_Graf_MouseLeave(sender As Object, e As EventArgs) Handles Chart_Graf.MouseLeave
        Label_X.Text = "Out X"
        Label_Y.Text = "Out Y"
    End Sub

Private Sub Chart1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Chart1.MouseDown
    Debug.WriteLine("MouseDown:" & Chart1.ChartAreas(0).AxisX.PixelPositionToValue(e.X) & "/" & Chart1.ChartAreas(0).AxisY.PixelPositionToValue(e.Y))
End Sub
 
Private Sub Chart1_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Chart1.MouseMove
    Debug.WriteLine("MouseMove:" & Chart1.ChartAreas(0).AxisX.PixelPositionToValue(e.X) & "/" & Chart1.ChartAreas(0).AxisY.PixelPositionToValue(e.Y))
End Sub

    'Указатель мыши перемещается по элементу
    Private Sub Chart_Graf_MouseMove(sender As Object, e As MouseEventArgs) Handles Chart_Graf.MouseMove
        'Получаем положение курсора на графике
        Label_X.Text = Chart_Graf.ChartAreas("Default").AxisX.PixelPositionToValue(e.X)
        Label_Y.Text = Chart_Graf.ChartAreas("Default").AxisY.PixelPositionToValue(e.Y)
    End Sub

Private Sub Chart_Graf_MouseMove(sender As Object, e As MouseEventArgs) Handles Chart_Graf.MouseMove
        If e.Y < 530 Then
            Label_X.Text = Chart_Graf.ChartAreas(0).AxisX.PixelPositionToValue(e.X)
            Label_Y.Text = Chart_Graf.ChartAreas(0).AxisY.PixelPositionToValue(e.Y)
        End If
End Sub

Private Sub Chart_Graf_MouseMove(sender As Object, e As MouseEventArgs) Handles Chart_Graf.MouseMove
    Try
        Label_X.Text = Chart_Graf.ChartAreas(0).AxisX.PixelPositionToValue(e.X)
        Label_Y.Text = Chart_Graf.ChartAreas(0).AxisY.PixelPositionToValue(e.Y)
    Catch ex As Exception
    End Try
End Sub