原因很简单，因为你指定了Image的Index，而系统又找不到对应ImageList，系统出错了。没有绑定ImageList的情况下不要指定ImageIndex就可以了
Const tvwChild =4
Dim MyObj,mMainNode,mNOde
With HMIRuntime.ActiveScreen
Set MyObj = .ScreenItems("Tree")
Set mMainNode = MyObj.Nodes.Add(,,"Main","Main")
Dim i
For i = 1 To 10
Set mNOde = MyObj.Nodes.Add(mMainNode,tvwChild,"SUB"&CStr(i),i)
Next
mMainNode.Expanded= True
End With