I'd suggest to read this: Implementing Drag and Drop in Visual Basic .NET
As to your code...
procedure you have to add this line:
Dim myitem = DataFormats.Text
Above code enable you to copy item. Now, you have to provide code to remove item, which have ben moved.