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