Menghilangkan DoubleClick Mouse

Kode ini berguna untuk menghilangkan / meniadakan perintah double click pada mouse.
Buat sebuah Project baru dengan sebuah Form didalamnya. Tambahkan 1 kontrol Timer (Enabled=True; Interval=1000) ke dalam Form tersebut.


[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :

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

Di bagian 'Form_Load' ketikkan :

App.TaskVisible = False
Me.Hide

Lalu di bagian 'Timer1_Timer' ketikkan :

SetDoubleClickTime 1

[ VB .NET ]
Di bagian '(Declarations)' dari Form ketikkan :

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

Di bagian 'Form1_Shown' ketikkan :

Me.Hide()

Lalu di bagian 'Timer1_Tick' ketikkan :

SetDoubleClickTime(1)

CATATAN : Jika Anda ingin mengembalikannya seperti semula, hentikan proses aplikasi melalui Task Manager. Kemudian buka Control Panel >>> Mouse, pilih tab "Buttons". Lalu sesuaikan kembali Double-click speed-nya.