Foro de elhacker.net

hola, estoy tratando de mostrar las imágenes del directorio de temporales de Internet en un ListView pero no se ven.

        Dim lstImages As New ImageList()
        lstViewJPG.Items.Clear()
        lstViewJPG.LargeImageList = lstImages
        lstViewJPG.View = View.LargeIcon
 
        Dim strCacheDir As String = CStr(Environment.GetFolderPath(Environment.SpecialFolder.InternetCache))
        Dim strFiles As IEnumerable = Directory.EnumerateFiles(strCacheDir, "*", SearchOption.AllDirectories)
        For Each strFileName As String In strFiles
            Select Case Path.GetExtension(strFileName)
                Case ".jpg"
 
                    Try
 
                        Dim Imagen As Image = Image.FromFile(strFileName)
                        lstImages.ImageSize = New Size(CInt((Imagen.Width * 50) / Imagen.Height), 50)
                        lstImages.Images.Add(Path.GetFileName(CStr(strFileName)), Imagen)
                        lstViewJPG.Items.Add(Path.GetFileName(CStr(strFileName)), Path.GetFileName(CStr(strFileName)))
                        Imagen.Dispose()
                    Catch ex As Exception
                        lstImages.ImageSize = New Size(CInt(50), 50)
                    End Try
            End Select
 
        Next

falta iconos, png, y bmp. El ejemplo es solo para archivos jpg.

Además me gustaría que la imagen fuera proporcional  a la imagen original. cuando lo intento me da error.

gracias