How do I set the BackColor property of an Activex Command Button using colorindex

[KentBurel]

I'm building a simple test case to understand how to set the BackColor property of an ActiveX Command button to one of the 56 colorindex colors. I can get it to work with the RGB function. My code looks like this:

Sub ControlColor()
    Dim myColorindex As Integer
    Dim i As Integer
    Dim response As String
   
    For i = 1 To 56
        Worksheets("Sheet1").Label1.BackColor = RGB(0, 0, 255)
        response = MsgBox("Continue?", vbOKOnly, " ")
    Next i
End Sub

How do I do the same thing using ColorIndex numbers?

Or how do I convert ColorIndex numbers to RGB values?

 

[Jaafar Tribak]

Change RGB(0, 0, 255) to this :

Worksheets("Sheet1").Label1.BackColor = ActiveWorkbook.Colors(i)

 

[KentBurel]

Wow. Works perfectly. Of course this is just a learning exercise. But now I know how to incorporate it into my real project. Thanks for your help.