Título da Dica: Lê e seta o intervalo do duplo clique
Postada em 9/9/2003 por Ð@®l@n Private Declare Function GetDoubleClickTime Lib "user32" () As Long Private Declare Function SetDoubleClickTime Lib "user32" (ByVal wCount As Long) As Long
Private Sub Command1_Click() s = GetDoubleClickTime MsgBox s End Sub
Private Sub Command2_Click() s = SetDoubleClickTime(500) ' 500 milisegundos. End Sub
