OLEDragDrop事件问题！

[scmydg]

如何在其它事件中（如click事件）中调用List1_OLEDragDrop事件啊，当中的参数怎么设置！
Private Sub jfList_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
...
End Sub

主要是Data As DataObject这个参数在其它事件中怎么声明！

[scmydg]

在线等待中，搞定马上给分！

[射天狼]

I DONG'T KNOW, UP HELP YOU~~

[scmydg]

我的主要目的是：
我有三个listbox控件，通过listview控件拖放到这三个listbox中。
同时在listview中有弹出式菜单中也要做出想同的功能，通过判断添加到其中一个listbox中，不知道哪位大哥可以帮我或有好的方法啊！

分不够可以再加啊！

[scmydg]

谁可以帮我啊！

[scmydg]

帮我想个其它的办法可以吗？谢谢各位大哥大姐了！

[maskzha]

添加控件
List1
ListView1
ImageList1


'*************************
Option Explicit

Private Sub Form_Load()
List1.OLEDropMode = 1
ListView1.OLEDragMode = 1
Dim i As Integer
ListView1.Icons = ImageList1
For i = 1 To 12
ListView1.ListItems.Add i, "Mov" & i, "List" & i, 1
Next
End Sub

Private Sub List1_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
List1.AddItem ListView1.SelectedItem.Key
End Sub

[scmydg]

maskzha(最近比较水) :

我要在其它的事件中调用List1_OLEDragDrop事件，不只是简单的拖放！
因为在可通过listview拖放，也可以通过treeview里拖放。
另外我的弹出菜单中的功能和List1_OLEDragDrop是一样的，主要是Data As DataObject的声明怎么办！