'в этом событии определяется узел, который будет перетаскиваться (lDragNode, объявленный на уровне формы) 
'это событие нужно переделать для листвью
Private Sub tvTree_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
    If Button =  1  Then
        Set lDragNode = tvTree.HitTest(x, Y)
    Else
        On Error Resume Next
        tvTree.HitTest(x, Y).Selected = True
        Set lDragNode = Nothing
    End If
End Sub

'начало перетаскивания, тоже переделать для listview
Private Sub tvTree_OLEStartDrag(Data As ComctlLib.DataObject, AllowedEffects As Long)
    If lDragNode Is Nothing Then
        AllowedEffects =  0  'отмена 
    Else
        Screen.MousePointer = vbCustom 'здесь можно задать иконку, которая будет отображаться при перетаскивании вместо стандартного курсора (не обязательно)
        Screen.MouseIcon = lDragNode.CreateDragImage
    End If
End Sub

'это событие (тоже для listview) нужно для отображения своего курсора
Private Sub tvTree_OLEGiveFeedback(Effect As Long, DefaultCursors As Boolean)
    DefaultCursors = False
End Sub

'момент дропа, оставить как есть
Private Sub tvTree_OLEDragDrop(Data As ComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, Y As Single)
Dim n As Node, lNode As Node
Dim np As NODE_PARAMS
Dim bExp As Boolean

    On Error GoTo errh
    Set n = tvTree.HitTest(x, Y)
    If Not n Is Nothing Then
        If n.Child Is Nothing Then
            Set lDragNode.Parent = n
        Else
            np = GetNodeParams(lDragNode) 'всякие параметры, которые были перетащены и которые будут добавлены через две строчки
            bExp = lDragNode.Expanded
            tvTree.Nodes.Remove lDragNode.Index
            Set lNode = tvTree.Nodes.Add(n.Child, tvwLast, np.Key, np.Text, np.Image)
            lNode.Selected = True
            lNode.Expanded = bExp
        End If
        RaiseEvent MoveNode(lDragNode, n)
    End If
errh:
End Sub

'восстановление стандартных курсоров
'скорее всего тоже переделать для listview, но может и нет
Private Sub tvTree_OLECompleteDrag(Effect As Long)
    Screen.MousePointer = vbDefault
End Sub