Sub Example_GraphicsWinModelBackgrndColor()
    ' Этот пример возвращает текущую установку GraphicsWinModelBackgrndColor.
    ' Затем изменяет значение и наконец сбрасывает значение назад к
    ' первоначальной установке.
    
    Dim preferences As AcadPreferences
    Dim currGraphicsWinModelBackgrndColor As OLE_COLOR
    
    Set preferences = ThisDrawing.Application.preferences
    
    ' Получите текущее значение GraphicsWinModelBackgrndColor
    currGraphicsWinModelBackgrndColor = preferences.DISPLAY.GraphicsWinModelBackgrndColor
    MsgBox "Текущее значение для GraphicsWinModelBackgrndColor " _
            & preferences.DISPLAY.GraphicsWinModelBackgrndColor, vbInformation, "GraphicsWinModelBackgrndColor Пример"
    
    ' Измените значение для GraphicsWinModelBackgrndColor
    preferences.DISPLAY.GraphicsWinModelBackgrndColor = 16
    MsgBox "Новое значение для GraphicsWinModelBackgrndColor " _
            & preferences.DISPLAY.GraphicsWinModelBackgrndColor, vbInformation, "GraphicsWinModelBackgrndColor Пример"
    
    ' Сбросьте GraphicsWinModelBackgrndColor к его первоначальному значению
    preferences.DISPLAY.GraphicsWinModelBackgrndColor = currGraphicsWinModelBackgrndColor
    MsgBox "Значение GraphicsWinModelBackgrndColor сброшено к " _
            & preferences.DISPLAY.GraphicsWinModelBackgrndColor, vbInformation, "GraphicsWinModelBackgrndColor Пример"
End Sub