主题：动态生成菜单

select case dr("组件类型")

       case "按钮"

           Dim b As New RibbonMenu.Button(dr("组建名称")

       case "文本框"

           Dim b As New RibbonMenu.TextBox(dr("组建名称")

       .....

end Select