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