循环每一个page判断,才行。
Dim tpb As WinForm.TopicBar = Forms("窗口1").Controls("TopicBar1")Dim contains As Boolean = FalseFor Each page As WinForm.TopicPage In tpb.Pages If page.Name = "xxx" Then contains = True Exit For End IfNextmsgbox(contains)