VB6 Code - Merubah Waktu Double Klik Pada Mouse

Di bawah ini merupakan fungsi VB6 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 fungsi VB6 di atas:

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