你可以考慮"共用事件"
下面是兩個ListView共用MouseDown和MouseMove事件，可以達到移動ListView1和ListView2
Dim oldx, oldy As Integer Dim dx, dy As Integer Dim newx, newy As Integer Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load With ListView1 8: .Columns.Add("Test", 100) '加入Column 9: .AllowDrop = True '啟用拖曳 10: .View = View.Details '顯示模式為詳細資料 11: .MultiSelect = False '禁用Item多選 12: .GridLines = True '顯示格線 13: 14: '加入Item 15: For i = 0 To 9 16: .Items.Add(i) 17: Next 18: End With With ListView2 .Columns.Add("Test", 100) '加入Column .AllowDrop = True '啟用拖曳 .View = View.Details '顯示模式為詳細資料 .MultiSelect = False '禁用Item多選 .GridLines = True '顯示格線 '加入Item For i = 0 To 9 .Items.Add(i) Next End With AddHandler ListView1.MouseDown, AddressOf ListView_MouseDown AddHandler ListView1.MouseMove, AddressOf ListView_MouseMove AddHandler ListView2.MouseDown, AddressOf ListView_MouseDown AddHandler ListView2.MouseMove, AddressOf ListView_MouseMove End Sub Private Sub ListView_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) oldx = e.X '下滑鼠左鍵時滑鼠的位置 oldy = e.Y CType(sender, ListView).BringToFront() End Sub Private Sub ListView_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) TextBox1.Text = e.Button If e.Button = Windows.Forms.MouseButtons.Left Then '當滑鼠左鍵被按住移動時才進行 dx = e.X - oldx '計算滑鼠移動的距離 dy = e.Y - oldy newx = CType(sender, ListView).Location.X + dx newy = CType(sender, ListView).Location.Y + dy CType(sender, ListView).Location = New Point(newx, newy) End If End Sub

至於你要的目的，請你自己根據共用事件的方法，再研究看看。

我個人通常在事件函式用全域旗標判斷是否要執行某些選擇性程序,
類似您另一篇(http://www.blueshop.com.tw/board/FUM20050124191756KKC/BRD20180411151410IX1.html) 中的 InitialCount,
不確定有沒有更好的方法,
供參考.

判斷被拖曳的物件的資料型別,
可以在 DragOver 或是 DragDrop 事件中使用 GetDataPresent 判斷,
例如:
DragOver: https://msdn.microsoft.com/zh-tw/library/system.windows.forms.control.dragover(v=vs.90).aspx
DragDrop: https://msdn.microsoft.com/zh-tw/library/system.windows.forms.control.dragdrop(v=vs.90).aspx
其中用 If (e.Data.GetDataPresent(GetType(System.String))) Then 判斷型別是否是字串.

回應：練武功
感謝你提供的思考方向，我試著從你的想法來做做看吧
我之前使用共用事件時都是在一個事件的 Handles 後面加了很多控制項的事件
然後在裡面用 Select Case Sender.Name撈出觸發事件的控制項
想請問這和你的寫法有什麼差異嗎?還是說兩個做的都是同一件事只是方法不同呢?
另外想問關於CType的問題，CInt、CStr這些東西怎麼用，但CType就不是很了解了
我可以把CInt或CStr是CTYpe(?,Integer)與CType(?,String)嗎?



回應：Ader Chen
原來是這樣判定資料型別啊，我在看GetDataPresent(String, Boolean)一直不知道是什麼意思，原來是我用錯方法了...

1.我不知道你如何使用Select Case Sender.Name來寫程式，至於差異性不必太在意，能夠跑最重要。
2.ctype、cint、cstr就是轉換資料型態，網路上有很多資料。其實VB很人性化，你不用ctype，還是可以跑程式。