Mengganti bentuk pointer mouse menjadi "tangan"

Ini adalah teknik mengubah bentuk pointer mouse menjadi bentuk tangan (bentuk pointer ketika didekatkan ke sebuah link pada halama browser). Sebelumnya tambahkan sebuah CommandButton di form Anda untuk mengujinya.

Code:

   
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