extracted from the data after that:
</p><pre>
Private Function validateDragLocation( _
       nodDrag As cTreeViewNode, _
       nodInsert As cTreeViewNode _ 
   ) As Boolean

   ' only ok if nodDrag's path is not a wholly
   ' contained child of nodInsert
   Dim sPathDrag As String
   Dim sPathInsert As String
   Dim iPos As Long
   Dim bOk As Boolean
   
   sPathDrag = nodDrag.Key
   iPos = InStr(sPathDrag, ":")
   sPathDrag = Mid(sPathDrag, iPos + 1)
   sPathInsert = nodInsert.Key
   iPos = InStr(sPathIn