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