Получение координат курсора в VB 2010

Public Class Form1
    Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
    Private Structure POINTAPI
        Dim x As Long
        Dim y As Long
    End Structure
    Dim z As POINTAPI
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
 
        Timer1.Start()
        Timer1.Interval = 1
 
    End Sub
 
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        GetCursorPos(z)
        Label1.Text = "x: " & z.x
        Label2.Text = "y: " & z.y
    End Sub
 
  
End Class

Dim x% = MousePosition.X
Dim y% = MousePosition.Y

Public Class Form1
    Dim x% = MousePosition.X
    Dim y% = MousePosition.Y
    Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
 
 
    Private Structure POINTAPI
        Dim x As Long
        Dim y As Long
 
    End Structure
    Dim z As POINTAPI
 
 
 
 
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
 
        Timer1.Start()
        Timer1.Interval = 1
 
    End Sub
 
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        GetCursorPos(z)
 
        Label1.Text = "x: " & z.x
        Label2.Text = "y: " & z.y
    End Sub
 
 
End Class

Public Class Form1
 Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
  Timer1.Start()
  Timer1.Interval = 1
 End Sub
 Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
  Label1.Text = "x: " & MousePosition.X
  Label2.Text = "y: " & MousePosition.y
 End Sub
End Class