不知你用的是哪个数型控件啊！推荐你使用Microsoft TreeView Control,在WinCC兼容得还是不错的，居然还可以和ImageList控件配合使用。
Const tvwChild =4
Dim MyObj,mMainNode,mNOde
With HMIRuntime.ActiveScreen
Set MyObj = .ScreenItems("TreeControl1")
Set mMainNode = MyObj.Nodes.Add(,,"Main","Main",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