codice:
Private Const HandCursor = 32649&

Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long
Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
    
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim hdl As Long
    hdl = LoadCursor(0, HandCursor)
    If hdl Then SetCursor hdl
End Sub