Cursor Property

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