主题：请教

大师：好！

圣诞快乐！

请问：下面的代码在TopicPageExpanded事件中写的，为何有时有的页面不关闭，打开一个页面后，另外的页面不关闭，有时等一会儿才关闭？

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