Visual Basic.NET - Ayuda OpenfileDialog

ListView1.View = View.Details 'View.SmallIcon 'View.List

Dim MesFichiers() As String = System.IO.Directory.GetFiles("D:\Tmp\ElArchivoQueMeGusta", "*.*")

For Each UnFichier As String In MesFichiers

    ListView1.Items.Add(UnFichier)

Next

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

    Dim ImagenLista As New ImageList 'With {.ColorDepth = ColorDepth.Depth32Bit, .ImageSize = New Size(32, 32)}

    ListView1.SmallImageList = ImagenLista

    ListView1.View = View.List

    Dim MisArchivos() As String = System.IO.Directory.GetFiles("D:\Tmp\ElArchivoQueMeGusta", "*.*")

    For Each UnArchivo As String In MisArchivos

        Dim FInfo As New System.IO.FileInfo(UnArchivo)

        Dim Icona = System.Drawing.Icon.ExtractAssociatedIcon(FInfo.FullName)

        ImagenLista.Images.Add(Icona.ToBitmap)

        Dim UnLVItem As New ListViewItem(FInfo.Name)

        UnLVItem.ImageIndex = ImagenLista.Images.Count - 1

        ListView1.Items.Add(UnLVItem)

    Next

End Sub

vista.Items.Clear()

Dim ImagenLista As New ImageList 'With {.ColorDepth = ColorDepth.Depth32Bit, .ImageSize = New Size(32, 32)}

ImagenLista.ColorDepth = ColorDepth.Depth32Bit

ImagenLista.ImageSize = New Size(50, 50)

vista.SmallImageList = ImagenLista

vista.View = View.List

Dim MisArchivos() As String = System.IO.Directory.GetFiles(directorio, "*.*")

For Each UnArchivo As String In MisArchivos

    Dim FInfo As New System.IO.FileInfo(UnArchivo)

    'Dim Icona = System.Drawing.Icon.ExtractAssociatedIcon(FInfo.FullName)

    Dim Imagen As Image = Image.FromFile(FInfo.FullName.ToString)

    ImagenLista.Images.Add(Imagen.GetThumbnailImage(50, 50, CallBack, IntPtr.Zero))

    Dim UnLVItem As New ListViewItem(FInfo.Name)

    UnLVItem.ImageIndex = ImagenLista.Images.Count - 1

    vista.Items.Add(UnLVItem)

Next