主题：如何选定topicbar 的页面

你这个是控件啊，跟共有窗口什么事

我把这个控件放到共有窗口去的 我想隐藏共有窗口 写了代码

 If e.sender.Text = "左侧导航" Then
            Forms("导航").visible=False
            e.sender.Text = "显示导航栏"
            e.sender.ToolTip = "显示导航栏"
            e.sender.SmallImage = getimage("out.png")
        Else
            Forms("导航").visible=True
            e.sender.text = "左侧导航"
            e.sender.ToolTip   = "隐藏导航栏"
            e.sender.SmallImage = getimage("in.png")
        End If

就是隐藏不了

Forms("导航").show()
Dim tpb As WinForm.TopicBar = forms("导航").Controls("TopicBar1")
For Each page As WinForm.TopicPage In tpb.Pages
    If page.Name <> "页面1" Then
        page.visible = False
Else
        page.visible =True

    End If
Next