OLEDragDrop事件问题！

Question

如何在其它事件中（如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这个参数在其它事件中怎么声明！

Answer 1

I DONG'T KNOW, UP HELP YOU~~

Answer 2

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

Answer 3

添加控件
List1
ListView1 
ImageList1
'*************************
Option ExplicitPrivate 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 SubPrivate 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

Answer 4

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