主题：参考“基本功能演示”中任务栏的做法，结果还是显示紊乱！

根据狐友ibehujun的帖子，参考“基本功能演示”中任务栏的做法，结果还是显示紊乱！还有没有什么办法？

1. 窗口》AfterLoad事件'初始导航折叠
For Each page As WinForm.TopicPage In e.Form.Controls("TopicBar1").pages
    If page.Name <> "项目计划" '设置初始展开项
        page.Collapsed = True
    End If
Next

2. 窗口》TimerTick事件
e.Form.TimerEnabled = False
Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
For Each page As WinForm.TopicPage In tpb.Pages
    If page.Name <> e.Form.Text Then
        page.Collapsed = True
    End If
Next