主题：请问狐爸，菜单导航栏中的页面，默认为：可见但不可用，代码如何写，谢谢。

请问狐爸，菜单导航栏中的页面，默认为：可见但不可用，代码如何修改，谢谢。

举例 ：

Dim topic As WinForm.TopicBar = Forms("导航栏").Controls("TopicBar1") '希望默认全部是可见但不可用
If _Usergroup = "产品中心"  Then
    Dim tl1 As WinForm.TopicLink
    topic.Pages("产品中心").Visible = True '当用户组为产品中心时,这个页面及其下面的任务项，可见可用，其他的均为"可见但不可用"。

    topic.Pages("市场管理").Visible = True '
.... .....    
  Else If _Usergroup = "管理员"  Then
  所有菜单均可用

........ 

End If