codice:
'Generale 
Private Const HandCursor = 32649& '32648&   ecc.. 
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