Imports System.IO
Public Class Form3
    Dim tool As New tool ' Eine klasse von mir die ein paar Standart funktionen 
    ' enthält
    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load ' Hier klapt alles
        tool.Form_Zentriren(Me) ' Form zentriren
        ListView1.AllowDrop = True ' Damit Drag and Drop funktioniert
        Dim img As Image
        For Each a In Form1.bild_pfad ' Array mit den Pfaden zu den bildern
            Dim jpgStream As New System.IO.FileStream(a, FileMode.Open, _
              FileAccess.ReadWrite, FileShare.ReadWrite) 'Bild öffnen
            img = Image.FromStream(jpgStream) 'zwischenspeichern
            ImageList1.Images.Add(img) ' zu imagelist hinzufügen
            ListView1.Items.Add(tool.Filter_Dateiname(a)) 'neues Element in der 
            ' ListView ersteleln
            ListView1.Items.Item(ListView1.Items.Count - 1).Text = ( _
              tool.Filter_Dateiname(a)) ' dem Element den passenden Text geben ( 
            ' z.b. "winter.jpg")
            ListView1.Items.Item(ListView1.Items.Count - 1).ImageIndex = _
              ListView1.Items.Count - 1 ' Das Bild as der ImageList zuweisen
            jpgStream.Close() ' Bild schliesen damit die Datei weiter aufrufbar 
            ' ist
        Next
        ListView1.Refresh()
    End Sub
 
    'Deine Funktion
    Private Sub ListView1_DragDrop(ByVal sender As Object, ByVal e As  _
  System.Windows.Forms.DragEventArgs) Handles ListView1.DragDrop
        Dim p As Point = ListView1.PointToClient(New Point(e.X, e.Y)) _
      'Bildschirmkoordinaten in ClientKoordinaten umrechnen
        Dim lv As ListViewItem = ListView1.GetItemAt(p.X, p.Y)
        lv.Text = e.Data.GetData(DataFormats.StringFormat, True)
    End Sub
End Class