Control.Checked

Private Sub CommandBars_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)
    If (Control.Id >= 100 And Control.Id <= 105) Then
        Checked(2) = Checked(1)
        Checked(1) = Control.Id
    End If

    If (Control.Id >= 120 And Control.Id <= 122) Then
        Checked(3) = Control.Id
    End If
End Sub

Private Sub CommandBars_Update(ByVal Control As XtremeCommandBars.ICommandBarControl)
   
    If (Control.Id >= 100 And Control.Id <= 105) Then
           Control.Checked = Control.Id = Checked(1) Or Control.Id = Checked(2)
    End If
   
    If (Control.Id >= 120 And Control.Id <= 122) Then
           Control.Checked = Control.Id = Checked(3)
    End If
End Sub

Private Sub Form_Load()
    Dim Popup As CommandBarPopup
    Set Popup = CommandBars.ActiveMenuBar.Controls.Add(xtpControlPopup, 0, "Menu")
    With Popup.CommandBar.Controls
        .Add xtpControlButton, 100, "Item 1"
        .Add xtpControlButton, 101, "Item 2"
        .Add xtpControlButton, 102, "Item 3"
        .Add xtpControlButton, 103, "Item 4"
        .Add xtpControlButton, 104, "Item 5"
        .Add xtpControlButton, 105, "Item 6"
       
        Set Control = .Add(xtpControlButton, 120, "Item 1")
        Control.BeginGroup = True
        .Add xtpControlButton, 121, "Item 2"
        .Add xtpControlButton, 122, "Item 3"
    End With
End Sub