Imports System
 
Public Class frmMousePos
 
    'Positionierung der Structure-Elemente sicher stellen
    <Runtime.InteropServices.StructLayout _
      (Runtime.InteropServices.LayoutKind.Sequential)> _
    Public Structure POINTAPI
        Public X As Integer
        Public Y As Integer
 
        Public Sub New(ByVal X As Integer, ByVal Y As Integer)
            Me.X = X
            Me.Y = Y
        End Sub
    End Structure
 
 
    <Runtime.InteropServices.DllImport("user32.dll")> _
    Public Shared Function GetCursorPos _
             (<Runtime.InteropServices.[In](), _
              Runtime.InteropServices.Out()> ByRef pt As POINTAPI) As Integer
    End Function
 
 
    Private WithEvents tim As New Timer With {.Interval = 200, .Enabled = True}
 
 
    Private Sub tim_Tick(sender As Object, e As System.EventArgs) Handles _
      tim.Tick
 
        Dim mousepos As POINTAPI
 
        Dim ret As Integer = GetCursorPos(mousepos)
 
        Me.Text = "Ret = " & CStr(ret) & "   X: " & CStr(mousepos.X) & _
                "   Y: " & CStr(mousepos.Y)
 
        Me.Refresh()
    End Sub
 
End Class