listview同士でデータをやりとりする場合
サブアイテムも含めて送る簡単な方法ないですか？

選択されている項目をコピーする

j = 1
For i = 1 To ListViewDL.ListItems.Count
　　If ListViewDL.ListItems(i).Selected Then
　　　　Form3.ListViewBuff.ListItems.Add() = ListViewDL.ListItems(i)
　　　　Form3.ListViewBuff.ListItems(j).SubItems(1) = ListViewDL.ListItems(i).SubItems(1)
　　　　Form3.ListViewBuff.ListItems(j).SubItems(2) = ListViewDL.ListItems(i).SubItems(2)　　　　　　　　　　　　
　　　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　　　・
　　　　　　　　　　　　　　　　 ・
　　　　　　　　　　　　　　　　・
　　End If
Next