VB Projects

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

Private Sub Command2_Click()
Dim retval As Long
retval = SetDoubleClickTime(1000) ' set the double click speed to 1 second
Text2 = " 1 Second"
End Sub