比如
Dim b As New RibbonMenu.ToggleButton("test") '定义一个标准按钮b.text = "test"b.ShortcutKeys = keys.control + keys.F3ConfigBar.Items.Add(b)