Hi David
Thanks for your reply!!

I solve the problem and let me tell it you.

If I create a node object for locally use, the internal reference is created and never destroyed, like this sample:

With .oleList.Object.ListItems
.Clear()
Do While Type( "oNode" ) == "O" And !IsNull( oNode )
itmX = .Add(, oNode.Key, oNode.Text, oNode.Image, oNode.Image)
oNode = oNode.Next
EndDo
EndWith


I found the solution creating a recursive function:

***********
TreeView NodeClick Event
Lparameter node
Thisform.oleList.Object.ListItems.Clear()
Thisform.FillList( node.Child )

***********
FillList Method:
LParameter oNode
If Vartype( oNode ) == "X" && NULL
Return
Else
Thisform.oleList.Object.ListItems.Add(, oNode.Key, oNode.Text, oNode.Image, oNode.Image)
Thisform.FillList( oNode.Next )
EndIf

Thanks Again for your interest.

Esteban