主题：任务栏图标问题

Dim el As String = e.Link.Name
Dim tl As WinForm.TopicLink
tl = Forms("窗口2").Controls("TopicBar1").Pages(0).Links(el)
tl.ImageFile = "tb16_101.png"

If vars("pclick") IsNot Nothing Then
    vars("pclick").ImageFile = "xtb16_03.png"
End If

vars("pclick") = e.Link