很简单的！
Dim tw
Set tw=ScreenItems("TreeView")
With tw

.Nodes.Add , , "root", "目录",1,2
.Nodes.Add "root",4, "child", "4A#系列电炉",1,2
.Nodes.Add "root",4, "child2", "4B#系列电炉",1,2
.Nodes.Add "child",4, "sun1", "1号电炉" ,1,2
.Nodes.Add "child",4, "sun2", "2号电炉",1,2
.Nodes.Add "child2",4, "sun4", "1号电炉",1,2
.Nodes.Add "child2",4, "sun5", "2号电炉",1,2
.Nodes.Add "child2",4, "sun6", "3号电炉",1,2
End With

C脚本也可以：不过兼容性不好！
#define GetObject GetObject

__object *pdl=NULL;
__object *pic=NULL;
__object *obj=NULL;
//__object *item = NULL;

pdl = __object_create("PDLRuntime");
pic=pdl->GetPicture(lpszPictureName);
obj=pic->GetObject("tree");

printf("Style is %d\r\n",obj->Style);
printf("Nodes Count is %d\r\n",obj->Nodes->Count);

obj->Nodes->Add(, ,"key0","Root Node");//创建根节点
obj->Nodes->Add("key0",4,"child1","No1");
obj->Nodes->Add("key0",4,"child2","No2");
obj->Nodes->Add("key0",4,"child3","No3");
obj->Nodes->Add("key0",4,"child4","No4");

//__object_delete(item);
__object_delete(obj);
__object_delete(pic);
__object_delete(pdl);