'Open New Project. 'Put label on the form and name it :"Set Double Click Time To" 'Put Text Box on the form and set Text to space(0) 'Write down this public function below in module section. Public Declare Function SetDoubleClickTime Lib "user32" (ByVal wCount As Long) As Long 'Write down this code on form. Private Sub Command1_Click() If Not Text1.Text = "" Then SetDoubleClickTime Text1.Text End If End Sub