Thanks Dreamora. Just a mistake into your previous code. This code works :
Strict Local win : TGadget =CreateWindow("My Window",40,40,600,400) Local TreeView : TGadget= CreateTreeView (0,0,100,300, win) Local MyRoot:TGadget=TreeViewRoot(Treeview) Local Node1:TGadget = AddTreeViewNode ("node1", MyRoot) Local Node2:TGadget = AddTreeViewNode ("node2", Node1) Local Node3:TGadget = AddTreeViewNode ("node3", Node1) For Local n:TGadget = EachIn Node1.kids Notify n.GetText() Next While True WaitEvent Print CurrentEvent.ToString() Select EventID() Case EVENT_WINDOWCLOSE End End Select Wend