主题：[求助]任务栏展开页面的问题

Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
For Each page As WinForm.TopicPage In tpb.Pages
    If page.Name <> e.Page.Name Then
        page.Collapsed = True
    End If
Next

执行上面语句后，从下往上展开时没问题，展开一个收缩一个。但从上往下就有毛病了，会出现同时展开的现象，问题在哪儿？