主题：[求助]listview拖动问题

参考代码

Dim lvw As WinForm.ListView = e.Sender
Dim lvwSource = e.Source.basecontrol
Dim itm = lvwSource.items(e.OldIndex) '获取要拖动过来的行
If e.Source.Name <> e.Sender.Name Then '如果是从其他ListView中拖动过来的
    e.Add = False
    Dim nitm = itm.clone
    lvw.Rows(0).Delete
    Dim b = e.sender.basecontrol
    b.items.Insert(0,nitm)
End If