Separator, BeginGroup unavailable

Thanks a lot in advance

Regards

Winanjaya

 

 

Dim ControlView As CommandBarPopup
Dim Control As CommandBarControl
Set ControlView = CommandBars.ActiveMenuBar.Controls.Add(xtpControlPopup, 0, "&View")
With ControlView.CommandBar.Controls
     Set Control = .Add(xtpControlButtonPopup, 0, "Hello World")
     With Control
         .CommandBar.Controls.Add xtpControlButton, 1, "Menu 1"

           ---> I want to put separator here! but BeginGroup property unavailable
 

        .CommandBar.Controls.Add xtpControlButton, 2, "Menu 2"
         .CommandBar.Controls.Add xtpControlButton, 3, "Menu 3"
     End With
End With