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