Extending product function with VBA : The System Architect object model : Object model classes : Application class : Application class: Attributes : MousePointer
  
MousePointer
This allows the user to control the type of mouse pointer that is visible to the user when using the application.
Data type
integer
Example
The current value of the mouse pointer can be returned:
Dim MouseValue as Integer
MouseValue = oApplication.Mousepointer
To set a mouse pointer to the hour glass type, use 11 as the value to set.
oApplication.Mousepointer = 11
For a list of permissible values, see the Microsoft VBA helpfile.
See also
Application class: Attributes