oParentNode = toNode.PARENT iNodeIndex = oParentNode.FirstSibling.INDEX DO WHILE .T. IF iNodeIndex <> oParentNode.LastSibling.INDEX THISFORM.oTree.Nodes(iNodeIndex).REMOVE && <b>Error occurs here</b> iNodeIndex = THISFORM.oTree.Nodes(iNodeIndex ).NEXT.INDEX ELSE THISFORM.oTree.Nodes(iNodeIndex).REMOVE EXIT ENDIF ENDDOCan anybody see what I'm doing wrong? TIA