Declare Function GetDoubleClickTime Lib "user32" () As Long
GetDoubleClickTime определяет максимальный промежуток времени в миллисекундах между двумя щелчками мыши, которые обрабатываются системой как двойной щелчок.
' Показываем промежуток времени ' между двумя щелчками мыши в событии DoubleClick Dim doubletime As Long ' получаем значение промежутка времени в миллисекундах doubletime = GetDoubleClickTime() Debug.Print doubletime; "миллисекунд"