下面的方法式过,还有点问题,谁能给个参考角本,先谢啦!

树形控件的实际应用
这是一段用VBS操作树形控件的程序，试验过没问题，我怎么样将树形条目连接到图形对象，比如我点击一个条目就进入一画面？
Sub OnLButtonDown(Byval Item, Byval Flags, Byval x, Byval y)
Const tvwChild =4
Dim MyObj,mMainNode,mNOde
With HMIRuntime.ActiveScreen
Set MyObj = .ScreenItems("TreeControl1")
Set mMainNode = MyObj.Nodes.Add(,,"Zong","Zong",1)
Dim i
For i = 1 To 10
Set mNOde = MyObj.Nodes.Add(mMainNode,tvwChild,"SUB"&CStr(i),i,2)
Next
mMainNode.Expanded= True
End With
End Sub
问题补充：MyObj.Nodes.Add(,,"NewPdl1","NewPdl1.pdl")
MyObj.Nodes.Add(,,"NewPdl2","NewPdl2.pdl")
加进去之后编译不通过，编译时提示：调用子程序不能使用括号，去掉括号后编译没问题，但是发现无法对控件操作了，请问为何，怎么改？

上面的代码瞧的很眼熟啊，^_^
楼主想用树型控件做页面导航？首先用下面的代码给树型控件添加内容：
Dim MyObj,mNode
Set MyObj = ScreenItems("TreeControl1")
Set mNode = MyObj.Nodes.Add(,,"NewPdl1","NewPdl1.pdl")
Set mNode = MyObj.Nodes.Add(,,"NewPdl2","NewPdl2.pdl")
不想一个一个加，可以用fso组件读取项目文件夹\Gracs内的所有Pdl文件，然后加载到树型控件中。
然后在属性控件的NodeClick事件中使用如下代码即可：
Dim PictureName
PictureName=Node.Key
HMIRuntime.BaseScreenName = PictureName