Private source As ListBox
    Private sourceIndex As Integer
    Private Sub lbxSource_MouseDown(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles lbxSource.MouseDown, _
      lbxDest.MouseDown
        Dim aPoint As Point
        Dim lbx As ListBox
        Dim aIndex As Integer
        lbx = CType(sender, ListBox)
        aPoint = New Point(e.X, e.Y)
        aIndex = lbx.IndexFromPoint(aPoint)
        If aIndex >= 0 Then
            source = lbx
            sourceIndex = aIndex
            lbx.DoDragDrop(lbx.Items(aIndex), DragDropEffects.All)
        End If
    End Sub
    Private Sub lbx1_DragDrop(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles lbxDest.DragDrop
        Dim lbx As ListBox
        lbx = CType(sender, ListBox)
        If Not source Is Nothing Then
            source.Items.RemoveAt(sourceIndex)
        End If
        lbx.Items.Add(e.Data.GetData(DataFormats.Text))
    End Sub
    Private Sub lbx1_DragEnter(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.DragEventArgs) Handles lbxDest.DragEnter
        If (e.Data.GetDataPresent(DataFormats.Text)) Then
            e.Effect = DragDropEffects.All
        Else
            e.Effect = DragDropEffects.None
        End If
    End Sub