Public Sub ChangeCurseur(mHwnd As Long, Curs As Integer) Dim SysCursHandle As Long Dim CursHandel As Long Dim F As String 'Détruit le curseur précédant CursHandel = GetClassLong(mHwnd, GCW_HCURSOR) DestroyCursor CursHandel 'De 1 à 29 curseurs couleurs, au dessus, curseur animé F = CheminCurs & "Cur" & Curs & IIf(Curs < 30, ".cur", ".ani") CursHandel = LoadCursorFromFile(F) SysCursHandle = SetClassLong(mHwnd, GCW_HCURSOR, CursHandel) End Sub