falsche Icon-Darstellung

Question

Hallo Leute,

ich verwende folgenden Code, um Icons für die assoziierten Dateien zu extrahieren und in einem Listview anzuzeigen.

Das funktioniert auch, aber die Icons werden grausig dargestellt:

           sResult = DGVTask.Rows(e.RowIndex).Cells(GrdColTask.Dateiname).Value.ToString.Split(";")
                LvwDokumente.BeginUpdate()

                For q As Integer = 0 To sResult.Count - 1
                    If sResult(q).Count = 0 Then Exit For
                    ItemX = LvwDokumente.Items.Add("")
                    ItemX.Text = IO.Path.GetFileName(sResult(q))
                    sExtension = IO.Path.GetExtension(ItemX.Text)
                    If Not ImlFileIcon.Images.ContainsKey(sExtension) Then
                        iconForFile = Icon.ExtractAssociatedIcon(sResult(q))
                        ImlFileIcon.Images.Add(sExtension, iconForFile)
                    End If
                    ItemX.ImageKey = sExtension
                    ItemX.Tag = IO.Path.GetDirectoryName(sResult(q))
                Next

                LvwDokumente.EndUpdate()

Und so sieht das ganze dann aus:

Hat einer eine Idee was ich da verkehrt mache?

Vielen Dank im Voraus.

Gruß Ahmed