主题：救助

前面是按帮助文件中做的，之后
此主题相关图片如下：89.png

在主菜单的load事件加入以下代码：

With RibbonTabs("调度管理").Groups("查询区").Items("承运单位")

    .Items.Clear

    For Each c As String In xzqy.SQLGetComboListString("省份")

        Dim b As New RibbonMenu.Button(c)

        b.Text = c

        .Items.Add(b)

    Next

End With

之后菜单中的列表项目就变成如图的情形了