Arrastrar y soltar (DoDragDrop, DragEnter,DragDrop)

Primero de todo hay que elegir el objeto que se desea arrastrar y darle una condición del efecto (copiar,cortar...) en este caso copiar


Private Sub Listalmacen_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Listalmacen.MouseDown
        Listalmacen.DoDragDrop(Listalmacen.SelectedItem.ToString, DragDropEffects.Copy)
    End Sub

Al objeto de destino hay que ponerle la propiedad de AllowDrop a true

Después al objeto de destino hay que darle la opción de mirar que datos se están aceptando


  Private Sub Listventas_DragEnter(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles Listventas.DragEnter
        If (e.Data.GetDataPresent(DataFormats.Text)) Then
            e.Effect = DragDropEffects.Copy
        Else
            e.Effect = DragDropEffects.None
        End If
    End Sub

Y lo siguiente es aceptar los datos


 Private Sub Listventas_DragDrop(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles Listventas.DragDrop
        Listventas.Items.Add(e.Data.GetData(DataFormats.Text).ToString)
    End Sub