Returns or sets the state (shape) of the pointer. Can be one of the following WdCursorType constants: wdCursorIBeam, wdCursorNormal, wdCursorNorthwestArrow, or wdCursorWait. Read/write Long.
Example
This example prints a message on the status bar and changes the pointer to a busy pointer.
Dim intWait As Integer
StatusBar = "Please wait..."
For intWait = 1 To 1000
System.Cursor = wdCursorWait
Next intWait
StatusBar = "Task completed"
System.Cursor = wdCursorNormal