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