请教VB listview之间的数据移动问题

2个listview,并且有2个表头,一个是"文件",一个是"日期",listview1列出了当前文件夹下的所有文件和日期，请教各位怎样才能将listview1中选中的项目移动到listview2中，并且listview1选中的项目删除

我写的代码是这样的
For i = 1 To ListView1.ListItems.Count Step 1
           itmX.SubItems(1) = ListView2.ListItems.Add(, , ListView1.ListItems(i).SubItems(1))
    Next i
    ListView1.ListItems.Clear

可是这样就把listview1中的所有项目都删除掉了，而且只是把日期信息全部移动到了listview2里. --------------------编程问答-------------------- 'Listview1双击时将双击的项目添加到Listview2里,并删掉Listview1中双击的项目

Private Sub ListView1_DblClick()
    ListView2.ListItems.Add , , ListView1.SelectedItem.Text
    ListView2.ListItems(ListView2.ListItems.Count).SubItems(1) = ListView1.SelectedItem.SubItems(1)
    ListView1.ListItems.Remove (ListView1.SelectedItem.Index)
End Sub
--------------------编程问答-------------------- 谢谢，那如果要移动多个项目呢 --------------------编程问答-------------------- 继续提问啊，怎么没人回答 --------------------编程问答-------------------- 高手在哪里啊 --------------------编程问答-------------------- 给你个思路吧,不要什么都要另人给你写代码

你可以将ListView控件的Checkboxs属性设为True,
或者将Multiselect属性设为True
然后根据每个项目的选中状态,进行判断,
使用循环,加入另一个Listview
这样就可以了.

补充：VB ,  基础类