Memperlambat Gerakan Mouse

Kode ini berguna untuk memperlambat gerakan pointer 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 SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long

Di bagian 'Form_Load' ketikkan :

App.TaskVisible = False
Me.Hide
MsgBox "Maaf mouse anda sudah lanjut usia, jadi gerakannya pelan-pelan !"

Lalu di bagian 'Timer1_Timer' ketikkan :

SystemParametersInfo 113, 0, ByVal 1, 0

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

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As Integer, ByVal fuWinIni As Integer) As Integer

Di bagian 'Form1_Shown' ketikkan :

Me.Hide()
MsgBox("Maaf mouse anda sudah lanjut usia, jadi gerakannya pelan-pelan !")

Lalu di bagian 'Timer1_Tick' ketikkan :

SystemParametersInfo(113, 0, 1, 0)

CATATAN : Jika Anda ingin mengembalikannya seperti semula, hentikan proses aplikasi melalui Task Manager. Kemudian buka Control Panel >>> Mouse, pilih tab "Pointer Options". Lalu sesuaikan kembali pointer speednya.