mouse.bas

很好的教程原代码！

Attribute VB_Name = "modMouse"
Option Explicit
'
Declare Function GetSystemMetrics Lib "user32" _
    (ByVal nIndex As Long _
    ) As Long
Declare Function GetDoubleClickTime Lib "user32" () As Long
Public Const SM_CMOUSEBUTTONS = 43
Public Const SM_MOUSEPRESENT = 19