"Start a new group" coding possible for a commandbar (floating toolbar)?

[StargateFanFromWork]

I have great workbooks now that I have a formula for for modifying whenever
I need a commandbar. I'm able to fit these to any workbook, thanks to this
group.

The only thing I'm missing is to be able to put a vertical line like what
one sees on a toolbar when we've chosen to "start a new group". Is there
coding for a floating toolbar that will do the same thing?

Thanks! D

 

[StargateFanFromWork]

Sorry, sorry!!! I forgot to check archives first (I sometimes forget, this
is new impulse in last 6 months <g>). Found it in .BeginGroup = True). So
here's what one the button's coding look like with new line re .BeginGroup
separator:


****************************************************
' 6. Font down to size 9.
Set myButton = .Controls.Add(Type:=msoControlButton, ID:=23)
With myButton

'this puts a separator
.BeginGroup = True

.Caption = "Font down to size 9."
.Style = msoButtonIcon
.FaceId = 79 'or use 366 for a sheet image
.Enabled = True
.OnAction = "FontToSize_09"
End With
****************************************************

Thanks! D