在Visual Basic.NET中生成的列表框之间拖放

Question

在Visual Basic.NET中，我生成了n这样的列表框：

For i = 1 To n
    Dim x As ListBox = New ListBox With {.Height = 200, .Width = 200, .AllowDrop = True}
    Me.Controls.Add(x)
Next

现在，我想使用拖放功能在所有这些列表框之间交换项目。我已经看到了多个解释如何对2个ListBox进行解释，但是在这种情况下，我不知道如何处理拖放。

更具体地说：如果x是动态生成的对象，而不是从一开始就不在表单中，则我不知道如何声明Sub来处理事件x.DragDrop（例如）。