Вспомогательная палитра - VBA

Формулировка задачи:

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

Решение задачи: «Вспомогательная палитра»

textual
                            Листинг программы 
                        

                            Private Sub Index1_Click()
L = Index1.BackColor
Zvet = L
B = Zvet \ 65536
G = (Zvet - (Zvet \ 65536) * 65536) \ 256
R = Zvet - (Zvet \ 65536) * 65536 - ((Zvet - (Zvet \ 65536) * 65536) \ 256) * 256
S = "Выбран цвет: " & Zvet & vbCrLf _
& "В его состав входят:" & vbCrLf _
& "R = " & R & vbCrLf _
& "G = " & G & vbCrLf _
& "B = " & B & vbCrLf
MsgBox S, 64, ""
End Sub
 
Private Sub Index2_Click()
L = Index2.BackColor
Zvet = L
B = Zvet \ 65536
G = (Zvet - (Zvet \ 65536) * 65536) \ 256
R = Zvet - (Zvet \ 65536) * 65536 - ((Zvet - (Zvet \ 65536) * 65536) \ 256) * 256
S = "Выбран цвет: " & Zvet & vbCrLf _
& "В его состав входят:" & vbCrLf _
& "R = " & R & vbCrLf _
& "G = " & G & vbCrLf _
& "B = " & B & vbCrLf
MsgBox S, 64, ""
End Sub
 
Private Sub Index3_Click()
L = Index3.BackColor
Zvet = L
B = Zvet \ 65536
G = (Zvet - (Zvet \ 65536) * 65536) \ 256
R = Zvet - (Zvet \ 65536) * 65536 - ((Zvet - (Zvet \ 65536) * 65536) \ 256) * 256
S = "Выбран цвет: " & Zvet & vbCrLf _
& "В его состав входят:" & vbCrLf _
& "R = " & R & vbCrLf _
& "G = " & G & vbCrLf _
& "B = " & B & vbCrLf
MsgBox S, 64, ""
End Sub
 
.....................
.....................
.....................
 
 
Private Sub Index55_Click()
L = Index55.BackColor
Zvet = L
B = Zvet \ 65536
G = (Zvet - (Zvet \ 65536) * 65536) \ 256
R = Zvet - (Zvet \ 65536) * 65536 - ((Zvet - (Zvet \ 65536) * 65536) \ 256) * 256
S = "Выбран цвет: " & Zvet & vbCrLf _
& "В его состав входят:" & vbCrLf _
& "R = " & R & vbCrLf _
& "G = " & G & vbCrLf _
& "B = " & B & vbCrLf
MsgBox S, 64, ""
End Sub
 
Private Sub Index56_Click()
L = Index56.BackColor
Zvet = L
B = Zvet \ 65536
G = (Zvet - (Zvet \ 65536) * 65536) \ 256
R = Zvet - (Zvet \ 65536) * 65536 - ((Zvet - (Zvet \ 65536) * 65536) \ 256) * 256
S = "Выбран цвет: " & Zvet & vbCrLf _
& "В его состав входят:" & vbCrLf _
& "R = " & R & vbCrLf _
& "G = " & G & vbCrLf _
& "B = " & B & vbCrLf
MsgBox S, 64, ""
End Sub
                        