Private Sub ListBox2_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles ListBox2.MouseDown
        Dim d As Integer
        Dim count As Integer = ListBox2.Items.Count
        d = Microsoft.VisualBasic.Left((e.Y / 13), 1)
 
        If d < count Then
            ListBox2.DoDragDrop(ListBox2.Items(d), _
             DragDropEffects.Copy Or DragDropEffects.Move)
        End If
    End Sub