Cursor Property Example

This example prints a message on the status bar and changes the pointer to a busy pointer.

StatusBar = "Please wait..."
For i = 1 To 1000
    System.Cursor = wdCursorWait
Next i
StatusBar = "Task completed"
System.Cursor = wdCursorNormal