       sNewKey = m_lID &amp; ":" &amp; sPathTo
                                    
            ' Move nodDrag to the right location:
            
            ' Put it in the new place:
            nodeOver.Children.Add , , sOldKey, sText, _
               m_cIml.ItemIndex(sOldPath, True), _
               m_cIml.ItemIndex(sOldPath, True)
               ' note we use the old key because we haven't
               ' actually physically moved the directory.
            
         End If
         
      End If
 