取得双击间隔时间：
        Declare Function GetDoubleClickTime Lib "user32" Alias "GetDoubleClickTime" () As Long
    使用：
    返回千分之一秒的时间间隔数。
    设置双击间隔时间：
        Declare Function SetDoubleClickTime Lib "user32" Alias "SetDoubleClickTime" (ByVal wCount As Long) As Long
    使用：
    wCount 为千分之一秒的时间间隔数。