*DragDrop oTNode = oTargetTree.Nodes.Add; (.DropHighlight.key,4,oSource.SelectedItem.key,oSource.SelectedItem.Text) DO AddChildren WITH oTNode,oSource.SelectedItem.Child PROC AddChildren LPARAMETERS oTNode,oSNode DO WHILE !ISNULL(oSNode) DO AddChildren ; (TargetTree.Nodes.Add(oTNode.Key,4,oSNode.Key,oSNode.Text),oSNode.Child) oSNode = oSNode.Next ENDDOHTH