Public Class Form1
 
    Private Declare Function GetCursorPos Lib "user32" (ByVal lpPoint As _
      POINTAPI) As Long
 
    Private Structure POINTAPI
        Dim x As Integer
        Dim y As Integer
    End Structure
 
    Dim mpos As POINTAPI
 
    Private Sub Form1_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Click
        Call GetCursorPos(mpos)
        MsgBox(mpos.x)
        MsgBox(mpos.y)
    End Sub
 
End Class

Mit freundlichen Gr??en,
Djinndrache