What happens when you set the control's BackColor manually? B1.BackColor = vbGreen for example.

First, you have 2 (B1) the green box should be B0 according to your code.

If you are trying to change the back color of a Sub Menu, why don't you change the "Pressed Color" Value?

You have set the BackStyle of the buttons to Transparent. You need to switch them back to Solid in your code.

    Dim i As Integer
    
    For i = 1 To 7
        Me("B" & i).BackStyle = 0   ' Transparent
        Me("B" & i).BackColor = Box0.BackColor
    Next
    
    Me.ActiveControl.BackStyle = 1  ' Solid
    Me.ActiveControl.BackColor = Box1.BackColor
    Me.ActiveControl.HoverColor = Box1.BackColor
    Me.ActiveControl.PressedColor = Box1.BackColor

There are THREE back color properties for a command button, and you need to choose to right one to set the value to:

HoverColor -- back color of button when your mouse is hovering over the button.
PressedColor -- back color of the button when you are clicking on the button with your mouse.
BackColor -- back color of the button when it is neither clicked on nor hovered on.

There are also the ForeColor, HoverForeColor, and PressedForeColor properties to set the colors of the text inside the button under those same conditions.

Thank You guys for jumping in, looks like Kevin found my mistake I had the buttons back style all set to transparent once I set them to normal all the code worked. And Sami sorry for the Label B1 for the green box at the top I missed labeled that on the markup that should have been box1