setmousetime

Set Mouse Double Click Time

Set Mouse Double Click Time

'Add a module to your project (In the menu choose Project -> Add Module,
Then click Open)
'Insert this code to the module :

Declare Function SetDoubleClickTime Lib "user32" (ByVal wCount As Long)
As Long

'Insert the following code to your form:

Private Sub Form_Load()
'Replace the '500' below with the time (in milliseconds) that you want to
assign to
'the mouse double click. 1000 milliseconds=1 second.
s = SetDoubleClickTime(500)
End Sub