ник: snipe
если ваши "кнопки" обозвать хитрым образом
одним словом состоящим из текстовой и цифровой составляющих причем текстовая часть одинаковая для всех, а цифровая - последовательные натуральные числа то можно код сократить
обзываем "Кнопочка1", "Кнопочка2, "Кнопочка3", "Кнопочка4", "Кнопочка5".........."Кнопочка15"
Private function Boxcolor (asd as string)
for i=1 to 15
Me("Кнопочка" & i).BackColor = 16777215
Me("Кнопочка" & i).ForeColor = 0
Me("Кнопочка" & i).FontBold = 0
next i
Me(asd).BackColor = 62207
Me(asd).ForeColor = 255
Me(asd).FontBold = 1
end function
Пример вызова
Private Sub Кнопочка1_Click()
call Boxcolor(ActiveControl.Name)
End Sub