drag-drop from one listbox to another

[Bernie Yaeger]

OK, I have drag-drop working between one listbox and another (and back) with
the code below.

But I can't get it to work when I change the selection mode to multi or
multi extended.

Any help would be much appreciated.

Bernie
Private Sub frombox3_MouseD own(ByVal sender As Object, ByVal e As
System.Windows. Forms.MouseEven tArgs) Handles frombox3.MouseD own

Dim Pt As New Point(e.X, e.Y)

Dim Index As Integer

frombox3 = sender

Index = frombox3.IndexF romPoint(Pt)

If Index >= 0 Then

frombox3.DoDrag Drop(frombox3.I tems(Index), DragDropEffects .Move)

End If

End Sub

Private Sub tobox3_MouseDow n(ByVal sender As Object, ByVal e As
System.Windows. Forms.MouseEven tArgs) Handles tobox3.MouseDow n

Dim Pt As New Point(e.X, e.Y)

Dim Index As Integer

tobox3 = sender

Index = tobox3.IndexFro mPoint(Pt)

If Index >= 0 Then

tobox3.DoDragDr op(tobox3.Items (Index), DragDropEffects .Move)

End If

End Sub

Private Sub frombox3_DragDr op(ByVal sender As Object, ByVal e As
System.Windows. Forms.DragEvent Args) Handles frombox3.DragDr op

frombox3.Items. Add(e.Data.GetD ata(DataFormats .Text).ToString )

tobox3.Items.Re move(e.Data.Get Data(DataFormat s.Text).ToStrin g)

End Sub

Private Sub tobox3_DragDrop (ByVal sender As Object, ByVal e As
System.Windows. Forms.DragEvent Args) Handles tobox3.DragDrop

tobox3.Items.Ad d(e.Data.GetDat a(DataFormats.T ext).ToString)

frombox3.Items. Remove(e.Data.G etData(DataForm ats.Text).ToStr ing)

End Sub

Private Sub tobox3_DragEnte r(ByVal sender As Object, ByVal e As
System.Windows. Forms.DragEvent Args) Handles tobox3.DragEnte r

Dim x As Integer

x = tobox3.FindStri ngExact(e.Data. GetData(DataFor mats.Text).ToSt ring, -1)

If x <> -1 Then

Exit Sub

End If

If (e.Data.GetData Present(DataFor mats.Text)) Then

e.Effect = DragDropEffects .Move

Else

e.Effect = DragDropEffects .None

End If

End Sub

Private Sub frombox3_DragEn ter(ByVal sender As Object, ByVal e As
System.Windows. Forms.DragEvent Args) Handles frombox3.DragEn ter

Dim x As Integer

x = frombox3.FindSt ringExact(e.Dat a.GetData(DataF ormats.Text).To String, -1)

If x <> -1 Then

Exit Sub

End If

If (e.Data.GetData Present(DataFor mats.Text)) Then

e.Effect = DragDropEffects .Move

Else

e.Effect = DragDropEffects .None

End If

End Sub