System.Cursor (Word)

Retorna ou define o estado forma do ponteiro. Pode ser uma das seguintes constantes WdCursorType : wdCursorIBeam, wdCursorNormal, wdCursorNorthwestArrowou wdCursorWait. Long de leitura/gravação. Os valores de retorno possíveis são wdCursorIBeam - Forma do cursor do feixe I, wdCursorNormal - Forma normal do cursor. Será o cursor tem a forma designada pelo Windows ou pelo aplicativo, wdCursorNorthwestArrow - Forma do cursor diagonal iniciando no canto superior esquerdo, wdCursorWait - Forma de ampulheta do cursor.

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