ник: snipe
пишем функцию
где все поля загоняем
.BackColor = 16777215
.ForeColor = 0
.FontBold = 0
на событие клик
вызываем функцию (поля "обнуляются")
красим конкретное поле в нужные цвета
можно функции передавать имя поля
и красить из под функции
добавлено
это в модуль формы
Private function Boxcolor (asd as string)
Me.ТекстНадпись.BackColor = 16777215
Me.ТекстНадпись.ForeColor = 0
Me.ТекстНадпись.FontBold = 0
Me.ОбложкаНадпись.BackColor = 16777215
Me.ОбложкаНадпись.ForeColor = 0
Me.ОбложкаНадпись.FontBold = 0
Me.ФорзацНадпись.BackColor = 16777215
Me.ФорзацНадпись.ForeColor = 0
Me.ФорзацНадпись.FontBold = 0
Me.НахзацНадпись.BackColor = 16777215
Me.НахзацНадпись.ForeColor = 0
Me.НахзацНадпись.FontBold = 0
Me.ВкладкаНадпись.BackColor = 16777215
Me.ВкладкаНадпись.ForeColor = 0
Me.ВкладкаНадпись.FontBold = 0
Me.ФронтисписНадпись.BackColor = 16777215
Me.ФронтисписНадпись.ForeColor = 0
Me.ФронтисписНадпись.FontBold = 0
Me.СуперобложкаНадпись.BackColor = 16777215
Me.СуперобложкаНадпись.ForeColor = 0
Me.СуперобложкаНадпись.FontBold = 0
Me.ПереплетКорешокНадпись.BackColor = 16777215
Me.ПереплетКорешокНадпись.ForeColor = 0
Me.ПереплетКорешокНадпись.FontBold = 0
Me.КапталНадпись.BackColor = 16777215
Me.КапталНадпись.ForeColor = 0
Me.КапталНадпись.FontBold = 0
Me.ЛяссеНадпись.BackColor = 16777215
Me.ЛяссеНадпись.ForeColor = 0
Me.ЛяссеНадпись.FontBold = 0
Me.ТиснениеНадпись.BackColor = 16777215
Me.ТиснениеНадпись.ForeColor = 0
Me.ТиснениеНадпись.FontBold = 0
Me.КонвертНадпись.BackColor = 16777215
Me.КонвертНадпись.ForeColor = 0
Me.КонвертНадпись.FontBold = 0
Me.СчетНадпись.BackColor = 16777215
Me.СчетНадпись.ForeColor = 0
Me.СчетНадпись.FontBold = 0
Me.УпаковкаНадпись.BackColor = 16777215
Me.УпаковкаНадпись.ForeColor = 0
Me.УпаковкаНадпись.FontBold = 0
Me(asd).BackColor = 62207
Me(asd).ForeColor = 255
Me(asd).FontBold = 1
end function
Пример вызова
Private Sub ТекстНадпись_Click()
call Boxcolor(ActiveControl.Name)
End Sub