Sub Example_CursorSize()
    ' Этот пример возвращает текущую установку CursorSize. Затем изменяет
    ' значение, и наконец сбрасывает значение назад к первоначальной
    ' установке.
    
    Dim preferences As AcadPreferences
    Dim currCursorSize As Integer
    Dim newCursorSize As Integer
    
    Set preferences = ThisDrawing.Application.preferences
    
    ' Отыщите текущее значение CursorSize
    currCursorSize = preferences.DISPLAY.CursorSize
    MsgBox "Текущее значение для CursorSize " & currCursorSize, vbInformation, "CursorSize Пример"
    
    ' Измените значение для CursorSize
    newCursorSize = 10
    preferences.DISPLAY.CursorSize = newCursorSize
    MsgBox "Новое значение для CursorSize " & newCursorSize, vbInformation, "CursorSize Пример"
    
    ' Сбросьте CursorSize к его первоначальному значению
    preferences.DISPLAY.CursorSize = currCursorSize
    MsgBox "Значение CursorSize сброшено к " & currCursorSize, vbInformation, "CursorSize Пример"
End Sub