Para conocer el tiempo del doble click (en milisegundos) emplearemos la función GetDoubleClickTime y para cambiarlo la SetDoubleClickTime.

Declaramos en un módulo :

Declare Function GetDoubleClickTime Lib "user32" () as Long
Declare Function SetDoubleClickTime Lib "user32" Alias _
"SetDoubleClickTime" (ByVal wCount As Long) As Long


Para conocer el intervalo :

dim tiempo as long
tiempo = GetDoubleClickTime()

Y para cambiarlo

dim nuevotiempo as long, res as long
nuevotiempo = 2000 'milisengundos
res = SetDoubleClickTime(tiempo)