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

        Dim imageListSmall As New ImageList()
        Dim iconForFile As Icon
        ListView1.View = View.Details
        iconForFile = System.Drawing.Icon.ExtractAssociatedIcon("C:\Windows\System32\notepad.exe")
 
        imageListSmall.Images.Add(iconForFile)
        ListView1.SmallImageList = imageListSmall
 
        Dim ColumnHeadr As New ColumnHeader
        ListView1.Columns.Add(ColumnHeadr)
        ListView1.Items.Add("Notepad.exe", 0)
 

        Dim imageListSmall As New ImageList()
        Dim iconForFile As Icon
        ListView1.View = View.Details
        iconForFile = System.Drawing.Icon.ExtractAssociatedIcon("C:\Windows\System32\notepad.exe")
 
        'Fix a smaller version with interpolation
        Dim bm As New Bitmap(iconForFile.ToBitmap)
        Dim thumb As New Bitmap(16, 16)
        Dim g As Graphics = Graphics.FromImage(thumb)
        g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
        g.DrawImage(bm, New Rectangle(0, 0, 16, 16), New Rectangle(0, 0, bm.Width, bm.Height), GraphicsUnit.Pixel)
        g.Dispose()
        bm.Dispose()
 
        imageListSmall.Images.Add("1", thumb)
        ListView1.SmallImageList = imageListSmall
 
        Dim ColumnHeadr As New ColumnHeader
        ListView1.Columns.Add(ColumnHeadr)
        ListView1.Items.Add("notepad.exe", "1")

", ShellIcon.GetIcon(("C:\windows\system32\notepad.exe", 0)

", ShellIcon.GetIcon(("C:\windows\system32\notepad.exe", 1)

", ShellIcon.GetIcon(("C:\windows\system32\notepad.exe", 2)

Imports System.Runtime.InteropServices
 
Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        ListView1.View = View.Details
        Dim imgList As New ImageList
        imgList.Images.Add("1", ShellIcon.GetIcon("C:\windows\system32\notepad.exe", 1))
        ListView1.SmallImageList = imgList
 
        Dim ColumnHeadr As New ColumnHeader
        ListView1.Columns.Add(ColumnHeadr)
        ListView1.Items.Add("notepad.exe", "1")
 
 
    End Sub
End Class
 
 
 
Public NotInheritable Class ShellIcon
    Private Sub New()
    End Sub
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure SHFILEINFO
        Public hIcon As IntPtr
        Public iIcon As IntPtr
        Public dwAttributes As UInteger
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=260)> _
        Public szDisplayName As String
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=80)> _
        Public szTypeName As String
    End Structure
 
    Private Class Win32
        Public Const SHGFI_ICON As UInteger = &H100
        Public Const SHGFI_LARGEICON As UInteger = &H0
        ' 'Large icon
        Public Const SHGFI_SMALLICON As UInteger = &H1
        ' 'Small icon
        <DllImport("shell32.dll")> _
        Public Shared Function SHGetFileInfo(pszPath As String, dwFileAttributes As UInteger, ByRef psfi As SHFILEINFO, cbSizeFileInfo As UInteger, uFlags As UInteger) As IntPtr
        End Function
 
        <DllImport("User32.dll")> _
        Public Shared Function DestroyIcon(hIcon As IntPtr) As Integer
        End Function
 
    End Class
 
 
    Shared Sub New()
    End Sub
 
    Public Shared Function GetSmallIcon(fileName As String) As Icon
        Return GetIcon(fileName, Win32.SHGFI_SMALLICON)
    End Function
 
    Public Shared Function GetLargeIcon(fileName As String) As Icon
        Return GetIcon(fileName, Win32.SHGFI_LARGEICON)
    End Function
 
    Public Shared Function GetIcon(fileName As String, flags As UInteger) As Icon
        Dim shinfo As New SHFILEINFO()
        Dim hImgSmall As IntPtr = Win32.SHGetFileInfo(fileName, 0, shinfo, CUInt(Marshal.SizeOf(shinfo)), Win32.SHGFI_ICON Or flags)
 
        Dim icon As Icon = DirectCast(System.Drawing.Icon.FromHandle(shinfo.hIcon).Clone(), Icon)
        Win32.DestroyIcon(shinfo.hIcon)
        Return icon
    End Function
End Class