主题：任务栏图标问题

任务栏增加了图标，想做出点击另一行时，之前行的图标复原为默认图标，怎么写？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目012.zip

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

谢谢！