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