Dim xNod as Node
Private Sub Treeview1_DragOver(Source As Control, x As Single, y As Single, State As Integer)
If optDragOn.Value = True Then
    If inDrag = True Then
        ' Set DropHighlight to the mouse's coordinates.
        Set Treeview1.DropHighlight = Treeview1.HitTest(x, y)
        intIndex = Treeview1.DropHighlight.Index
        Treeview1.Nodes.Item(intIndex).EnsureVisible' Repositions at the top
    End If
End If
End Sub