Commandbars.controls opciones verticales

[Juanpy]

Estimados,

Estoy personalizando un libro excel con una serie de botones opciones dispuesto en la cinta de opciones.

Sub Add_Toolbar2()


    Dim TlBar As CommandBar

    Dim BarBtn As CommandBarButton


    Set TlBar = Application.CommandBars.Add(, , , True)

    With TlBar

        .name = "DupreeTasks"

        .Position = msoBarTop

        .Visible = True

        .Protection = msoBarNoChangeVisible + msoBarNoCustomize

    End With


    Set BarBtn = TlBar.Controls.Add(msoControlButton)

    With BarBtn

    'ADDED HERE!!

        .BeginGroup = True

        .Caption = "Tom"

        .OnAction = "Open_Tom"

        .Style = msoButtonCaption

    End With


    Set BarBtn = TlBar.Controls.Add(msoControlButton)

    'ALSO TRIED IT THIS WAY...SAME THING

    BarBtn.BeginGroup = False

       With BarBtn

        .Caption = "Mike"

        .OnAction = "Open_Mike"

        .Style = msoButtonCaption

    End With

    'Button.BeginGroup = True

End Sub[/CODE]

Pero los Botones de Opciones aparen Horizontales y NO VERTICALES como yo necesito.

Como puedo hacer para que los CONTROLS.ADD aparezcan uno arriba del otro y no uno al lado del otro.

Muchas gracias