[AccessD] submenu syntax -- got it finally

Function GetSubmenuNames(barname As String, controlname As String)
  Dim cbarMenu As CommandBar
  Dim cbarControl As CommandBarControl
  Set cbarMenu = CommandBars(barname)
  For Each cbarControl In cbarMenu.Controls(controlname).Controls
    Debug.Print cbarControl.Caption; _
        vbTab; cbarControl.Enabled; _
        vbTab; cbarControl.Type; _
        vbTab; cbarControl.Id
  Next
End Function