Option Explicit

Private mo_SysBtn As CommandBarControl
Private mo_Rbn As RibbonBar

Private Sub Command1_Click()
   mo_SysBtn.Execute
   ' Also tried mo_Rbn.ControlSystemButton.Execute with no difference in behaviour
End Sub

Private Sub Form_Load()
   With Me.CommandBars1
      .EnableOffice2007Frame True
      .VisualTheme = xtpThemeRibbon
      
      Set mo_Rbn = .AddRibbonBar("Main")
      With mo_Rbn
         .Controls.Add xtpControlButton, 200, "Test"
         
         Set mo_SysBtn = .AddSystemButton
         With mo_SysBtn
            .Id = 1200
            With .CommandBar
               .Controls.Add xtpControlButton, 100, "Test"
               .Controls.Add xtpControlButton, 101, "Test2"
   
               With .Controls.Add(xtpControlButton, 102, "Test3")
                  .BeginGroup = True
               End With
               .Controls.Add xtpControlButton, 103, "Test4"
            End With
         End With
         .EnableFrameTheme
         
      
      End With
      
      .PaintManager.RefreshMetrics
      .RecalcLayout
   End With
End Sub