System.Cursor (Word)

Renvoie ou définit l’état (forme) du pointeur. Les valeurs de retour possibles sont wdCursorIBeam - Curseur en forme de I, wdCursorNormal - Forme de curseur normale, wdCursorNorthwestArrow - Curseur diagonal, démarrant dans le coin supérieur gauche, wdCursorWait - Curseur en forme de sablier.

Dim intWait As Integer 
 
StatusBar = "Please wait..." 
 
For intWait = 1 To 1000 
 System.Cursor = wdCursorWait 
Next intWait 
 
StatusBar = "Task completed" 
System.Cursor = wdCursorNormal