主题：任务栏不能完全折叠

Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar")

For Each pg As WinForm.TopicPage In tpb.Pages

    If pg.Collapsed = False Then

        pg.Collapsed = True

    End If

Next

2、窗口开启了计时器，间隔1秒

3、当前使用的是2016.06.21开发版

问题：1、预览床口后，发现每个页面不能完全折叠，每个页面都有部分任务露出在任务栏上

      2、随便点击某个页面后，每个页面才折叠，同时点击的页面展开

请高手指点怎么处理