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