Private Sub CursorSize_Example()
' This example demonstrates the CursorSize and
' CursorXColor, YColor, and ZColor properties.
Dim myobj As ApplicationPreferences
Set myobj = IntelliCAD.Preferences
MsgBox "Cursor Size: " & myobj.CursorSize & Chr(13) & "Cursor X Color: " & myobj.CursorXColor & Chr(13) & "Cursor Y Color: " & myobj.CursorYColor & Chr(13) & "Cursor Z Color: " & myobj.CursorZColor & Chr(13)
End Sub