Monday, May 28, 2012

Memperoleh Waktu Double Klik Pada Mouse

Source di bawah ini berguna untuk memperoleh waktu double klik pada mouse dengan menggunakan fungsi API GetDoubleClick.

Option Explicit 
 
Private Declare Function GetDoubleClickTime Lib "user32" () As Long 
 
Private Sub Command1_Click() 
    Dim ret As Long 
    ret = GetDoubleClickTime 
    Text1.Text = ret & " milliseconds" 
End Sub