hvordan sporer man hvor musen er?

Under "mousemove" er X og Y din position af musen.

Lav under General
Dim Q, W

Lav under Form...Mousemove
Q=X ; W=Y

Nu er Q,W altid dit cordinatsæt af musen

Hvis du vil se det i funktion, så sæt 2 labels på en form og tilføj nedenstående kode :

Option Explicit
Dim MoveX As Single
Dim MoveY As Single


Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    MoveX = X
    Label1.Caption = MoveX
    MoveY = Y
    Label2.Caption = MoveY
End Sub

Det er bedre at bruge WinAPI'en (hurtigere, mere præcis (hvis man kan kalde det det)

Det har du da helt ret i, men hvis du lige skal hjælpe på vej og fortælle det lidt grundlæggende så ........

problemet er at VB måler i en enhed kaldet Twip, men Windows bruger Pixels kode kommer lige om lidt

Følgende viser positionen på  skærmen men kan ændre til atr vise positionen på form'en

Private Type POINTAPI
        X As Long
        Y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim pos As POINTAPI
Call GetCursorPos(pos)
Cls
Print "X " & pos.X & "  Y " & pos.Y & "  WinAPI (Pixels)"
Print "X " & Screen.TwipsPerPixelX * pos.X & "  Y " & Screen.TwipsPerPixelX * pos.Y & "  WinAPI (Omregnet til Twip)"
Print "X " & X & "  Y " & Y & "  VB (Twip)"
End Sub