Private Sub ListBox3_MouseDown(ByVal sender As System.Object, ByVal e As _
    System.Windows.Forms.MouseEventArgs) Handles ListBox3.MouseDown
        If ListBox3.SelectedItem <> Nothing Then
            ListBox3.DoDragDrop(ListBox3.SelectedItem, DragDropEffects.Copy)
        End If
    End Sub