*** Process all the child nodes lnChildren = toNode.Children IF lnChildren > 0 loChild = Thisform.oTree.Nodes( Thisform.oTree.Nodes( toNode.Key ).Child ) DO WHILE VARTYPE( loChild ) = [O] *** Do something with the child node *** And get the next child loChild=loChild.Next ENDDO ENDIF