I'd suggest to read this:
Implementing Drag and Drop in Visual Basic .NET[
^]
As to your code...
Inside
ListBox1_DragDrop
procedure you have to add this line:
Dim myitem = DataFormats.Text
ListBox1.Items.Add(mtitem)
Above code enable you to copy item. Now, you have to provide code to remove item, which have ben moved.