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