How can I identify a galleryitem

Private Sub CommandBars_Execute(ByVal Control As XtremeCommandBars.ICommandBarControl)

    Select Case Control.id
    Case ...
    Case ID_GALLERY_STYLES:
        Dim Gallery As CommandBarGallery
        
        Set Gallery = Control

        If Not Gallery.SelectedItem Is Nothing Then
            SelectedStyle = Gallery.SelectedItem.Id
        End If
    Case Else
    End Select

End Sub