Pointer Mouse Menjadi Bentuk Tangan di Visual Basic

Mengubah bentuk pointer mouse menjadi bentuk tangan . jadi ketika muse menyentuh tombol maka kursor berubah menjadi gambar tangan (gambar link)

Cukup tambahkan sebuah CommandButton di form untuk mencobahnya......

    Option Explicit      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      Private Const IDC_TanganPujangga As Long = 32649      Private Type CursorTangan         Cursor      As Long     End Type      Dim TanganPujangga As CursorTangan      Private Sub Command1_MouseMove(Button As Integer, _     Shift As Integer, X As Single, Y As Single)         SetCursor TanganPujangga.Cursor     End Sub      Private Sub Command1_MouseDown(Button As Integer, _     Shift As Integer, X As Single, Y As Single)         SetCursor TanganPujangga.Cursor     End Sub      Private Sub Form_Load()         TanganPujangga.Cursor = LoadCursor(0, IDC_TanganPujangga)     End Sub