Merubah Waktu Double Klik Pada Mouse

Di bawah ini merupakan fungsi untuk merubah waktu double klik pada mouse. Bagaimana implementasinya dalam Visual Basic 6.0? Simaklah kodenya di bawah ini.

Option Explicit 
 
Private Declare Function SetDoubleClickTime Lib "user32" (ByVal wCount As Long) As Long 
 
Public Function ChangeDBClkTime(Time As Integer) 
    SetDoubleClickTime (Time) 
End Function 

Contoh penggunaan:

Private Sub Command1_Click() 
    Call ChangeDBClkTime(1000) 
End Sub