Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button1.Click
        ListView1.SmallImageList = ImageList1
        ListView1.LargeImageList = ImageList1
        Dim fi As New IO.FileInfo("C:\test.jpg")
        If ImageList1.Images.Keys.Contains(fi.Extension) = False Then 'Icon der 
        ' Imagelist hinzufügen, Falls noch nicht vorhanden
            Dim ic As Icon = Icon.ExtractAssociatedIcon(fi.FullName)
            ImageList1.Images.Add(ic)
            ImageList1.Images.SetKeyName(ImageList1.Images.Count - 1, _
              fi.Extension)
        End If
        Dim it As New ListViewItem
        it.Text = fi.Name
        it.ImageKey = fi.Extension
        ListView1.Items.Add(it)
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus