主题：切换用户名后如何刷新菜单显示？

在授权表中对菜单中的按钮名进行授权,代码在菜单的LoadUserSetting中设置如下代码:

Dim tab As RibbonMenu.Tab
Dim grp As RibbonMenu.Group
Dim itm As RibbonMenu.RibbonItem
For Each tab  In RibbonTabs '显示所有菜单名称
    For Each grp In tab.groups
        For Each itm In grp.items
            For Each dr As DataRow In DataTables("授权表").Select("用户名 = '" &  _UserName & "'" )
                If itm.name=dr("按钮名") Then
                    itm.Visible =Not dr("不可见")
                End If
            Next
        Next
    Next
Next
一样的代码我在项目事件的LoadUserSetting也设置了,在菜单的Load中也设置了,在菜单中的LoadUserSetting也设置了,但是只有在菜单设计中点"应用"按钮生成菜单后才让设置生效.在关闭项目的情况下启动项目时，授权表中的要求不能在菜单中反映。