用什么软件可以记录下鼠标单击过点的坐标（采纳追加50）

我这有个绘制鼠标轨迹的程序，欢迎采纳！
VB绘制鼠标移动轨迹
主要代码及注释如下：
Public Class Form1Class Form1

Dim PtStart As Point '记录绘制直线的起始点
Dim PtEnd As Point '记录绘制直线的终点
Dim ShouldDrawLine As Boolean '是否绘制直线

'记录鼠标左键点击的位置，第二次点击后开始绘制直线
Private Sub Pic1_MouseDown()Sub Pic1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Pic1.MouseDown
If e.Button = Windows.Forms.MouseButtons.Left Then
If Not ShouldDrawLine Then
PtStart = New Point(e.X, e.Y)
ShouldDrawLine = True
Else
PtEnd = New Point(e.X, e.Y)

'下面两句根据需要进行取舍
'Call DrawLine(PtStart, PtEnd) '绘制一条直线
Call DrawLines(PtStart, PtEnd) '绘制多条直线

ShouldDrawLine = False
End If
End If
End Sub

'绘制鼠标的移动轨迹（仅在鼠标第一次点击后开始绘制轨迹）
Private Sub Pic1_MouseMove()Sub Pic1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handl