Private Sub Aufzeichnen()
 
Dim Ende!, LastX&, LastY&, Z&, i&, tPoint As POINTAPI, PosLst() As POINTAPI
 
ReDim PosLst(99)
Z = 0
Ende = Timer + 5
Do While Timer <= Ende
  Call GetCursorPos(tPoint)
  With tPoint
    If .x <> LastX Or .y <> LastY Then
      PosLst(Z).x = .x
      PosLst(Z).y = .y
      LastX = .x
      LastY = .y
      Z = Z + 1
      If Z > UBound(PosLst) Then ReDim Preserve PosLst(Z + 99)
    End If
  End With
  DoEvents
  Call Sleep(5)
Loop
 
Open "C:\Positionen21.txt" For Output As #1
  For i = 0 To Z - 1
    Print #1, Trim(PosLst(i).x), Trim(PosLst(i).y)
  Next i
Close #1
MsgBox Z & " Positionen" & vbCr & "Aufzeichnen beendet.", vbInformation + _
  vbOKOnly
 
End Sub

Gruss,

Zardoz