Lidt hjælp til en custom shortcut menu

Jeg har forsøgt at lave en custom shortcut menu, men er stødt ind i et mindre problem. En af "knapperne" i menu'en indeholder en undermenu med følgende captions: "Auto", "Vertical" "Horizontal"
det er så meningen at man skal kunne se hvilken af disse tre muligheder man sidst have klikket på. Det skal være noget i stil med det "check" tegn som man finder under:
"Vis" -> "Værktøjslinier", her er der vist hvilke værktøjslinier der er valgt.
Kan dette lade sig gøre og i givet fald hvordan ?

Her er hvordan jeg har lavet menu'en:

    Set MenuItem = myBar.Controls.Add(Type:=msoControlPopup)
    MenuItem.BeginGroup = False
    MenuItem.Caption = "Select"
   
    Set myItem = MenuItem.Controls.Add(Type:=msoControlButton)
    With myItem
        .Caption = "Auto"
        .OnAction = "f(1)"
        '.FaceId = 1550
    End With

    Set myItem = MenuItem.Controls.Add(Type:=msoControlButton)
    With myItem
        .Caption = "Horizontal"
        .OnAction = "f(2)"
        '.FaceId = 2654
    End With
   
    Set myItem = MenuItem.Controls.Add(Type:=msoControlButton)
    With myItem
        .Caption = "Vertical"
        .OnAction = "f(3)"
        '.FaceId = 2654
    End With