Public Class Form1
    Declare Function GetCursorInfo Lib "User32" (ByRef pci As CURSORINFO) As _
      Int32
    Private WithEvents T As New Timer With {.Enabled = True}
    Private WithEvents Pb As New PictureBox With {.Dock = DockStyle.Fill, _
      .BackColor = Color.Black, .Parent = Me}
 
    Public Structure CURSORINFO
        Public cbSize, flags As Int32
        Public hCursor As IntPtr
        Public ptScreenPos As Point
    End Structure
 
    Private Sub Pb_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Pb.Paint
        Dim cinf As New CURSORINFO With {.cbSize = _
        Runtime.InteropServices.Marshal.SizeOf(cinf)}
        GetCursorInfo(cinf)
        e.Graphics.DrawIcon(Icon.FromHandle(cinf.hCursor), 120, 120)
        Me.Text = cinf.ptScreenPos.X.ToString & ", " & cinf.ptScreenPos.Y
    End Sub
 
    Private Sub T_Tick(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles T.Tick
        Pb.Invalidate()
    End Sub
End Class