Listbox drag and drop items to move to different locations in the same listbox

See more:

VB

I am trying to figure out how to use the drag and drop event to switch the order of the listbox items. every time I try to use my code it keeps giving me a circle with a line through it. no matter what I do I cant get them to move.

Private Sub ListBox1_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown

       Dim index As Integer = ListBox1.IndexFromPoint(e.X, e.Y)
       Dim s As String = ListBox1.Items(index).ToString()
       Dim dde1 As DragDropEffects = DoDragDrop(s, DragDropEffects.Move)

       If dde1 = DragDropEffects.All Then
           ListBox1.Items.RemoveAt(ListBox1.IndexFromPoint(e.X, e.Y))
       End If


   End Sub
   Private Sub ListBox1_DragOver(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragEnter

       e.Effect = DragDropEffects.All
   End Sub

   Private Sub ListBox1_DragDrop(sender As Object, e As System.Windows.Forms.DragEventArgs) Handles ListBox1.DragDrop


       If e.Data.GetDataPresent(DataFormats.Text) Then
           e.Effect = DragDropEffects.Move
           ListBox1.SelectedIndex = ListBox1.IndexFromPoint(ListBox1.PointToClient(New Point(e.X, e.Y)))
       End If
       Dim str As String = DirectCast(e.Data.GetData(DataFormats.StringFormat), String)
       ListBox1.Items.Insert(ListBox1.SelectedIndex, str)


   End Sub

What I have tried:

changed .move to .copy but I still get the same circle with the line through it.