ImageFile

返回或设置任务显示的图标文件，如果事先复制到项目文件的Images子目录下，则无需路径，否则必须包括路径。

Dim tl As WinForm.TopicLink
tl = Forms("窗口1").Controls("TopicBar1").Pages(0).Links(0)
tl.ImageFile = "1601.ico"