CursorSize property example

Sub CursorSize_Example()
' This example demonstrates the CursorSize property
    Dim currCursorSize As Integer
    Dim newCursorSize As Integer
    Dim myPrefs As AcadPreferences
    Set myPrefs = ThisDrawing.Application.preferences
    ' Retrieve the current CursorSize value
    currCursorSize = myPrefs.Display.CursorSize
    MsgBox "The current value for CursorSize is " & currCursorSize
    ' Change the value for CursorSize
    newCursorSize = 15
    myPrefs.Display.CursorSize = newCursorSize
    MsgBox "The new value for CursorSize is " & newCursorSize
    ' Reset CursorSize to its original value
    myPrefs.Display.CursorSize = currCursorSize
    MsgBox "The CursorSize value is reset to " & currCursorSize
End Sub