主题：[求助]代码不起作用是怎么回事?

菜单系统事件LoadUserSetting中的代码:

If _UserName = "admin"  Then
    TableCaptionVisible = True
    Dim xtcd As RibbonMenu.Button = RibbonTabs("功能区1").Groups("9").Items("使用帮助").Items("进入系统菜单")
    xtcd.Visible=True
Else
    TableCaptionVisible = False
    Dim xtcd As RibbonMenu.Button = RibbonTabs("功能区1").Groups("9").Items("使用帮助").Items("进入系统菜单")
    xtcd.Visible=False
End If

切换用户后并不起作用,"进入系统菜单"仍可见,求高手帮忙看看代码是否有错?