Syscmd.Project.OpenUserMenu()

For Each rb As RibbonMenu.Tab In RibbonTabs

    rb.Visible = False

Next

Dim dt As DataTable = DataTables("功能导航")

Dim Arys As List(Of String())

Arys = dt.GetValues("功能组","","序号")

With ConfigBar

    .Items.Clear

    For Each Ary As String() In Arys

        Dim m As New RibbonMenu.MenuButton(Ary(0))

msgbox(2)

        m.Text = Ary(0)

       \' m.SmallImage = GetImage(Ary(1))

        m.ArrowVisible = False

        .Items.Add(m)

msgbox(1)

        Dim drs As List(Of DataRow)

        drs = dt.Select("[功能组] = \'" & Ary(0) & "\'","序号")

        If drs.Count > 0 Then

            For Each dr As DataRow In drs

                Select Case dr("菜单控件类型")

                    Case "按钮"

                        Dim b As New RibbonMenu.Button(dr("模块名称"))

                        b.Text = dr("模块名称")

                       \' b.SmallImage= GetImage(dr("模块图标"))

                        m.Items.Add(b)

                End Select

            Next

        End If

    Next

End With