How to re-arrange nodes in treeview with drag n drop

I've got a treeview control to work well, I can populate it, drag n drop changing parent nodes etc.. using a modified version of the northwind sample code from msdn. But now I'm to the point that I need to re-arrange the nodes within there parent branch and I havent been able to figure it out. This is the code to do the normal drag n drop to a new parent from the sample:

Private Sub xTree_OLEDragOver(Data As Object, Effect As Long, _
        Button As Integer, Shift As Integer, x As Single, y As Single, _
        State As Integer)
    Dim oTree As TreeView

    'Create a reference to the TreeView control.
    Set oTree = Me!xTree.Object

    'If no node is selected, select the first node you dragged over.
    If oTree.SelectedItem Is Nothing Then
        Set oTree.SelectedItem = oTree.HitTest(x, y)
        'MsgBox oTree.SelectedItem.Index
    End If

    'Highlight the node being dragged over as a potential drop target.
    Set oTree.DropHighlight = oTree.HitTest(x, y)
    'MsgBox oTree.DropHighlight.Index
End Sub

Private Sub xTree_OLEDragDrop(Data As Object, Effect As Long, _
        Button As Integer, Shift As Integer, x As Single, y As Single)
    On Error GoTo ErrxTree_OLEDragDrop

    Dim oTree As TreeView
    Dim strKey As String, strText As String
    Dim nodNew As Node, nodDragged As Node
    Dim db As Database
    Dim rs As Recordset
    Dim ctrlDown As Integer
    ctrlDown = (acCtrlMask) > 0
    Set db = CurrentDb
     
    'Open the OUTAGE_BK_TREE table for editing.
    Set rs = db.OpenRecordset("OUTAGE_BK_TREE", dbOpenDynaset)

    'Create a reference to the TreeView control.
    Set oTree = Me!xTree.Object

    'If nothing is selected for drag, do nothing.
    If oTree.SelectedItem Is Nothing Then
    Else
        'Reference the selected node as the one being dragged.
        Set nodDragged = oTree.SelectedItem
        'If ctrlDown Then MsgBox "ctrl down"
               
        'If the node was dragged to an empty space, update the
        'OUTAGE_BK_TREE table and make  a root node.
        If oTree.DropHighlight Is Nothing Then
            'Save the key and the text to use when you re-add the node.
            strKey = nodDragged.Key
            strText = nodDragged.Text
            'Delete the current node for the employee.
            oTree.Nodes.Remove nodDragged.Index
            'Locate the record in the OUTAGE_BK_TREE table and update it.
            rs.FindFirst "[ID]=" & Mid(strKey, 2)
            rs.Edit
            rs![FedBy] = Null
            rs.Update
            'Add this employee as a root node.
            Set nodNew = oTree.Nodes.Add(, , strKey, strText)
            'Add all the child nodes for this employee.
            AddChildren nodNew, rs
            'If you are not dropping the node on itself.
        ElseIf nodDragged.Index <> oTree.DropHighlight.Index Then
            'Set the drop target as the selected node's parent.
            Set nodDragged.Parent = oTree.DropHighlight
           
           
            'Locate the record in the OUTAGE_BK_TREE table and update it.
            rs.FindFirst "[ID]=" & Mid(nodDragged.Key, 2)
            rs.Edit
            rs![FedBy] = Mid(oTree.DropHighlight.Key, 2)
            rs.Update
        End If
    End If

    'Deselect the node
    Set nodDragged = Nothing

    'Unhighlight the nodes.
    Set oTree.DropHighlight = Nothing

ExitxTree_OLEDragDrop:
    Exit Sub

ErrxTree_OLEDragDrop:
    'If you create a circular branch.
    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
    End If
    Resume ExitxTree_OLEDragDrop
End Sub

I tried changing the index of the dragged node to the highlightednode.index + 1 and that didnt work, index is read only.

I had thought about useing a keypress event, like while shift+ctrl held down just move the node. But I first wanted to try just getting the tree to just move the nodes around with out editing the table since the parent node wont change.
I wouldnt neccessarily be against using some sort of button to move the selected node up or down also, if anybody would now how to do that.
Thanks