请高人帮忙加入点击或拖放事件

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10

Private Type POINTAPI
x As Long
y As Long
End Type

Dim pt As POINTAPI

Private Sub Command1_Click()
Open "1.text" For Output As #1
Timer6.Enabled = True
End Sub

Private Sub Command2_Click()
Close #1
Timer6.Enabled = False
End Sub

Private Sub Command3_Click()
Timer7.Enabled = True
Close #1
Open "1.text" For Input As #1
Dim ptstart

End Sub

Private Sub Form_Load()
Timer6.Enabled = False
Timer7.Enabled = False
Dim ptx, pty
End Sub

Private Sub Timer6_Timer()
GetCursorPos pt
Print #1, pt.x, pt.y
End Sub

Private Sub Timer7_Timer()
If EOF(1) Then
'Close #1
Exit Sub

Else

Line Input #1, ptstart
ptx = Trim(Left(ptstart, 5))
pty = Trim(Right(ptstart, 5))
SetCursorPos ptx, pty
End If
End Sub

不明白楼主之意。。。

语句是调试一个点击记录器，其中只有鼠标移动记录，点击或拖动部分不知怎么搞，请指点，谢谢！

不懂，学习