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