En cherchant un peu , je pence avoir trouver trois solution possible...
1/ avec mousepointer
--> Mettre le Curseur Normal
mousepointer=1
--> Mettre le Curseur en Sablier
mousepointer=11
2/ avec Cursor.Current
--> Mettre le Curseur Normal
Cursor.Current = Cursors.Default
--> Mettre le Curseur en Sablier
Cursor.Current = Cursors.WaitCursor
3/ avec api LoadCursorFromFile
Private Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
´ "Crosshair" - Croix (en forme de X).
private Const OCR_CROSS = 32515
´ "IBeam" - Curseur de saisie (en forme de I).
private Const OCR_IBEAM = 32513
´ "AppStarting" - Flèche + Sablier.
private Const OCR_APPSTARTING = 32650
´ "No" - Symbôle interdiction.
private Const OCR_NO = 32648
´ "Arrow" - Curseur par défaut (flèche).
private Const OCR_NORMAL = 32512
´ "Size" - Flèches en croix (en forme de +).
private Const OCR_SIZE = 32640
´ "SizeAll" - Flèches en croix (en forme de +).
private Const OCR_SIZEALL = 32646
´ "SizeNESW" - Flèche Nord,Est-Sud,Ouest.
private Const OCR_SIZENESW = 32643
´ "SizeNS" - Flèche Nord-Sud.
private Const OCR_SIZENS = 32645
´ "SizeNWSE" - Flèche Nord,Ouest-Sud,Est.
private Const OCR_SIZENWSE = 32642
´ "SizeWE" - Flèche Ouest-Est.
private Const OCR_SIZEWE = 32644
´ "UpArrow" - Flèche pointant vers le haut.
private Const OCR_UP = 32516
´ "Wait" - Sablier.
private Const OCR_WAIT = 32514
LoadCursorFromFile OCR_NORMAL