Jeg har et problem med overflytning af data fra Listview1 til Listview2 i VBA….

Jeg  bruger følgende kode

Private Sub ListView1_OLEStartDrag(Data As MSComctlLib.DataObject, AllowedEffects As Long)
    With ListView1
    Set moDragItem1 = .SelectedItem
    Set moDragItem2 = .SelectedItem.ListSubItems(1)
    Set moDragItem3 = .SelectedItem.ListSubItems(2)
    Set moDragItem4 = .SelectedItem.ListSubItems(3)
    Set moDragItem5 = .SelectedItem.ListSubItems(4)
    End With
End Sub
Private Sub Listview1_OLECompleteDrag(Effect As Long)
Dim i As Integer
    msDragSource = \"\"
    Set moDragItem1 = Nothing
    Set moDragItem2 = Nothing
    Set moDragItem3 = Nothing
    Set moDragItem4 = Nothing
    Set moDragItem5 = Nothing
End Sub

Private Sub ListView2_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

With ListView2.ListItems.Add(, , moDragItem1)
    .SubItems(1) = moDragItem2
    .SubItems(2) = moDragItem3
    .SubItems(3) = moDragItem4
    .SubItems(4) = moDragItem5
End With

End Sub

Som det fremgår af koden With ListView2.ListItem.Add(, , ….) så bliver moDragItem altid tilføjet forneden i Listview2.
Mit spørgsmål : hvordan laver jeg indekseringen .Add(, ,…) så moDragitem bliver hvor jeg ”slipper” den i listview2…