Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim fileEntries As String() = System.IO.Directory.GetFiles( _
        My.Settings.vPath)
        ' Process the list of files found in the directory.
        Dim fileName As String
        Dim Key As String = "Bild"
        Dim Zähler As Integer = 1
        For Each fileName In fileEntries
            If fileName.ToLower.EndsWith(".jpg", _
              StringComparison.CurrentCultureIgnoreCase) _
                               Or fileName.ToLower.EndsWith(".bmp", _
                               StringComparison.CurrentCultureIgnoreCase) _
                               Or fileName.ToLower.EndsWith(".tiff", _
                               StringComparison.CurrentCultureIgnoreCase) Then
 
                Zähler = Zähler + 1
                Each_File(fileName, Key & Zähler)
 
            End If
        Next fileName
    End Sub
    Sub Each_File(ByVal File As String, ByVal Key As String)
        Dim h As Int32 = ImageList1.Handle
        Using imgSrc = Image.FromFile(File)
            ImageList1.Images.Add(Key, imgSrc)
            ListView1.Items.Add(File, Key)
        End Using
    End Sub

Ich glaube nicht, dass Zitronenfalter wirklich Zitronen falten