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