Sub Example_System()
    ' Этот пример получает ссылку к объекту System Preferences от объекта
    ' Application Preferences, и читает один из параметров System
    
    Dim ACADPref As AcadPreferencesSystem
    
    ' Получите ссылку к объекту System Preferences
    Set ACADPref = ThisDrawing.Application.preferences.System
    
    MsgBox "Вы теперь имеете доступ к свойствам и методам объекта System Preferences!"
    MsgBox "Параметр System BeepOnError установлен в: " & ACADPref.BeepOnError
    
    ' Освобождаем объект System Preferences
    Set ACADPref = Nothing
    MsgBox "Объект System Preferences освобождён!"
End Sub