Hi,

Sorry, lazy reading...

FWIW I think you can take a simpler approach. This should be all you need:

*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
ENDDO

HTH
Viv