Pointer Tangan pada Kontrol

Dalam properti 'MousePointer' pada kontrol VB 6.0, tidak tersedia pilihan pointer yang berbentuk seperti tangan. Untuk itu harus dibuatkan cara khusus untuk membuatnya, berikut kodenya :

Di bagian '(Declaration)' dari Form ketikkan :

Private Declare Function LoadCursor Lib "user32.dll" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function SetCursor Lib "user32.dll" (ByVal hCursor As Long) As Long

Pada bagian kontrol yang akan diubah bentuk pointernya, ketikkan kode berikut di bagian 'MouseMove' dan 'MouseDown' -nya.

SetCursor (LoadCursor(0, 32649))

Anda juga bisa mengubah bentuk pointernya dengan bentuk yang lain, dengan cara mengubah angka yang berwarna merah dengan angka 32648 s/d 32663.