Private Declare Function GetDoubleClickTime& Lib "user32" ()

Private Sub Command1_Click()
    dct& = GetDoubleClickTime
    MsgBox dct&
End Sub




Source Page : http://www.mentalis.org/tips/tip014.shtml