获得鼠标双击间隔时间： 
Public Declare Function GetDoubleClickTime Lib "user32" Alias "GetDoubleClickTime" () As Long 
函数返回以毫秒为单位的鼠标双击间隔时间。 
设置鼠标双击间隔时间 
Declare Function SetDoubleClickTime Lib "user32" Alias "SetDoubleClickTime" (ByVal wCount As Long) As Long 
其中的参数 wCount 为以毫秒为单位的新的时间间隔的长度。