Private tvw As TreeView

Private Sub TreeView1_OLEStartDrag(Data As Object, AllowedEffects As Long)
    Set tvw = Me.TreeView1.Object
    
    tvw.SelectedItem = Nothing
End Sub

Private Sub TreeView1_OLEDragOver(Data As Object, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single, State As Integer)
    Set tvw = Me.TreeView1.Object
    
    If tvw.SelectedItem Is Nothing Then
        Set tvw.SelectedItem = tvw.HitTest(x, y)
    End If
    
    Set tvw.DropHighlight = tvw.HitTest(x, y)
End Sub

Private Sub TreeView1_OLEDragDrop(Data As Object, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
    On Error GoTo HandleErr
    
    Dim strKey As String
    Dim strText As String
    Dim nodNew As Node
    Dim nodDragged As Node
    
    Set tvw = Me.TreeView1.Object
    
    If tvw.SelectedItem Is Nothing Then
    Else
        Set nodDragged = tvw.SelectedItem
        If tvw.DropHighlight Is Nothing Then
            strKey = nodDragged.Key
            strText = nodDragged.Text

            tvw.Nodes.Remove nodDragged.Index
            Set nodNew = tvw.Nodes.Add(, , strKey, strText)
        ElseIf nodDragged.Index <> tvw.DropHighlight.Index Then
            Set nodDragged.Parent = tvw.DropHighlight
        End If
    End If
    
    Set nodDragged = Nothing
    Set tvw.DropHighlight = Nothing

ExitHere:
    Exit Sub
HandleErr:
    If Err.Number =  35614  Then
       MsgBox "A supervisor cannot report to a subordinate.", _
          vbCritical, "Move Cancelled"
    Else
       MsgBox "An error occurred while trying to move the node. " & _
       "Please try again." & vbCrLf & Error.Description
    End If
    Resume ExitHere
End Sub