Private Declare Function GetCursorPos Lib "user32" (cPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As _
  Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal zeit As Long)
 
 
Private Type POINTAPI
    x As Long
    y As Long
End Type
 
Sub aufzeichnen()
Dim tPoint As POINTAPI
Dim x As Long
Dim y As Long
Dim a
Dim Ende As Single, i As Long
 
 
 Open "c:\positionen21.txt" For Output As #1
 
DoEvents
 
Ende = Timer + 5
 
SetCursorPos 500, 500
 
Do While Timer <= Ende
  i = i + 1
 
x = GetCursorPos(tPoint)
y = GetCursorPos(tPoint)
DoEvents
If tPoint.x <> 500 And tPoint.y <> 500 Then
 
  Print #1, Trim(tPoint.x - 500), Trim(tPoint.y - 500)
 
End If
 
tPoint.x = 500
tPoint.y = 500
 
SetCursorPos 500, 500
 
 
' Je kleiner der Wert desto öfter wird Mausposition ausgelesen !
Sleep 1
 
Loop
 
Close #1
MsgBox ("ende aufzeichen")
End Sub