同意23456楼的 我也是那种思路 但是具体方法呵呵 不好意思 这阵子被逼搞网页 因为不会ASP 边学边做没时间看 哈哈哈哈哈

Private Declare Function GetTickCount Lib "kernel32" () As Long
Dim dj As Boolean '判断是否单击
Dim t As Long '记录第一次单击的时间

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If dj Then
MsgBox "连续两次单击的时间差:" & Str(GetTickCount - t) & "ms"
dj = False
Else
t = GetTickCount
dj = True
End If
End Sub



试试这个代码，看是否可以？