主题：[求助]任务栏

建立了TopicBar1（任务栏），在TopicLinkClick写了如下代码：

Select Case e.Page.name
    Case  "我的任务"
        Select Case e.link.name
            Case  "进行中的任务"
                '代码
            Case  "未开始的任务"
                '代码
        End Select
        Forms("任务主界面").show()
        MainTable = Tables("任务表")
End Selec

   单击"进行中的任务"和"未开始的任务"打开的是同一窗口。在打开
Forms("任务主界面")通过不同的过滤条件形成查询表，查询表的数据源相同。

    问题：由于任务切换时打开的是同一主窗口，必须手工关闭上一次打开的窗口，再点击

任务栏的相关任务才能打开。请问如何关闭上一次打开的窗口，代码应写在哪里？       

我在任务栏中加了关闭代码，如下：

Select Case e.Page.name
    Case  "我的任务"

       If Forms("任务主界面").Opened Then
          Forms("任务主界面").Close

        Select Case e.link.name
            Case  "进行中的任务"
                '代码
            Case  "未开始的任务"
                '代码
        End Select
        Forms("任务主界面").show()
        MainTable = Tables("任务表")
End Selec

       上述代码存在下列问题：切换任务时，第一次点击任务，关闭窗口，第二次在点击

该任务才能打开新的窗口，我想做的是：点击任务一次，关闭上一次打开的窗口，再打开新的窗口。