Visual Basic

Private mouseisdown As Boolean = False

   Private Sub ListView1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListView1.DragDrop
       If e.Data.GetDataPresent(DataFormats.FileDrop) Then
           e.Effect = DragDropEffects.All
           Dim myfile() As String
           Dim i As Integer = 0
           myfile = e.Data.GetData(DataFormats.FileDrop)

           For i = 0 To myfile.Length - 1
               Dim ico As Icon = Icon.ExtractAssociatedIcon(myfile(i))
               ImageList1.Images.Add(ico)
               Dim listview As New ListViewItem
               Dim location As New ListViewItem.ListViewSubItem
               listview.Text = myfile(i).Substring(myfile(i).LastIndexOf("\") + 1)
               location.Text = myfile(i)
               listview.SubItems.Add(location)
               listview.ImageIndex = ImageList1.Images.Count - 1
               ListView1.LargeImageList = ImageList1
               ListView1.Items.Add(listview)
               listview = Nothing

           Next

       End If
   End Sub


   Private Sub ListView1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles ListView1.DragEnter
       If e.Data.GetDataPresent(DataFormats.FileDrop) Then
           e.Effect = DragDropEffects.All
       End If
   End Sub

   Private Sub ListView1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseDown
       mouseisdown = True
   End Sub

   Private Sub ListView1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseMove
       If mouseisdown = True Then
           If ListView1.SelectedItems.Count > 0 Then
             ListView1.DoDragDrop(ListView1.SelectedItems(0).Text, DragDropEffects.Move)
           End If
       End If
       mouseisdown = False
   End Sub

Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick
       If ListView1.SelectedItems.Count > 0 Then
           Process.Start(ListView1.SelectedItems(0).SubItems(1).Text)
       End If
   End Sub