CursorSize property example

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