主题：如何使用菜单中的ComboBox控件

Dim cmb As RibbonMenu.ComboBox = RibbonTabs("统计报表").Groups("商品信息").Items("商品分类")
For Each s As String  In DataTables("表A").GetUniqueValues("","第一列")
    Dim b As New RibbonMenu.Button(s)
    b.Text = s
    cmb.Items.Add(b)
Next

看看：

http://www.foxtable.com/help/topics/1134.htm