老师,下面两组代码为什么不能单独删除。
'------------任务栏展开和收缩------------
e.Form.TimerEnabled = False
Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar7")
For Each page As WinForm.TopicPage In tpb.Pages
If page.Name <> e.Form.Text Then
page.Collapsed = True
End If
Next
e.Form.TimerEnabled = False
Dim rwl As WinForm.TopicBar = e.Form.Controls("TopicBar8")
For Each page As WinForm.TopicPage In tpb.Pages
If page.Name <> e.Form.Text Then
page.Collapsed = True
End If
Next