Visual Basic

ListView1.View = View.Details<br />
ListView1.View = View.LargeIcon<br />
ListView1.View = View.List<br />
ListView1.View = View.SmallIcon

Dim fullPath As String
Dim di As New DirectoryInfo(fpath)
Dim fi As FileInfo
Dim i As Integer

fullPath = GetPathFromNode(TreeView1.SelectedNode)
ListView1.Items.Clear()

'*** Loop to get the "jpg" files
Try
    For Each fi In di.GetFiles("*.jpg") ' if path will contain link files, change from jpg to lnk
        ImageList3.ImageSize = New Size(96, 96)
        Try
            CreateThumbNail(fpath & "\" & fi.Name) ' This returns the thumbnail images

            With ListView1 ' set the properties for for the ListView ListView1
                .Items.Add(fi.Name, i)
                .LargeImageList = ImageList3
                .ForeColor = Color.Blue
                .Scrollable = True
            End With
        Catch
            Exit Try
        End Try

        i += 1
    Next ' cycle through fpath until no more *.jpg.lnk files are found
Catch
    MsgBox("No image files are located in this directory.", MsgBoxStyle.Exclamation, "Thumbnails")
    Exit Try
End Try

Private Sub CreateThumbNail(ByVal filepath As String)
    Dim myImage As New Bitmap(filepath)
    Dim MyThumbNail As Image
    '*** ThumbNail
    MyThumbNail = myImage.GetThumbnailImage(96, 96, AddressOf Thumbnailabort, Nothing)
    '*** Fill the ImageList with Image Collection
    ImageList3.Images.Add(MyThumbNail)
End Sub