Цвет ярлычка листа

[Ra]

Здравствуйте, подскажите, пожалуйста, как осуществить следующее. Необходимо привязать цвет кнопки (элемент управления) к цвету ярлычка. т.е. кнопка - зеленая, ярлычок - зеленый, при нажатии на кнопку ее цвет меняется на красный, цвет ярлычка тоже меняется на красный и в обратном порядке.
Спасибо!

[nilem]

Например. В модуль листа

Код Выделить Развернуть

Option Explicit
Dim bu As Boolean

Private Sub CommandButton1_Click()
Me.CommandButton1.BackColor = Choose(bu + 2, vbRed, vbGreen)
Me.Tab.Color = Choose(bu + 2, vbRed, vbGreen)
bu = Not bu
End Sub

[Ra]

Спасибо. а не могли бы на примере показать?)