1、http://www.foxtable.com/help/topics/2777.htm
2、比如,最简单的,你可以在BeforeDropRow处理
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