Changing Menu on toobar after clicking it

[Gary]

I created my own custom toolbar, and the menu items are in text. I would
like a means to indicate that the menu item has been selected??? Such as
changing the text color or anything.

Here is an example of my code:

Set cbars = Application.CommandBars
Set cbar = cbars.Add(Name:="My Tool", Position:=msoBarTop,
Temporary:=True)

cbar.Protection = msoBarNoCustomize
cbar.Context = Str(visUIObjSetDrawing) & "*"

Set cbButton1 = cbar.Controls.Add(Type:=msoControlButton)
With cbButton1
.Caption = " Skill "
.TooltipText = "Click for Skill"
.Tag = "cbbVBAMacro"
.Style = msoButtonCaption
.OnAction = "ThisDocument.SkillLayerActive"
End With

Any help is deeply appreciated.

Gary