PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 1 sept. 2006 à 13:59
salut,
sans ressource...
Option Explicit
Private Const IDC_HAND As Long = 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_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call SetCursor(LoadCursor(0&, IDC_HAND))
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call SetCursor(LoadCursor(0&, IDC_HAND))
End Sub