如何在多选列表框重拖动？

[jiatiejun]

各位高手

我在用 VB 编写一个类似于资源管理器界面的程序，可以从右边的列表框选多项拖放到左边的树叶子上，拖动开始部分如下

Private Sub ListView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbLeftButton Then
ListView1.Drag vbBeginDrag
End If
End Sub

当我使用右键是一切正常，但是当我使用左键时，ListView控件会自动将我的多个选择废弃，只剩下活动的一个，这样岂不成了单选了!!!

WHY???? How can I do??? Who can help me?????

[Janven]

你的Listview1的dragmode属性是否设成0，如果不是置成0。

[Janven]

还有你的Mutiselect属性应该也为True