Dim lvw As WinForm.ListView = e.Sender If e.Source.Name <> e.Sender.Name Then '如果是从其他ListView中拖动过来的 For Each vr As WinForm.ListViewRow In e.Source.SelectedRows Dim nr = e.sender.Rows.Add() nr.Text = vr.text nr.Name = vr.name Next End If e.cancel = True