Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim imageDir As String = "(画像フォルダのディレクトリ)" Dim stFiles As String() = System.IO.Directory.GetFiles(imageDir, "*.*")
Dim width As Integer = 100 Dim height As Integer = 80
ImageList1.ImageSize = New Size(width, height) ListView1.LargeImageList = ImageList1
For i As Integer = 0 To stFiles.Length - 1 Dim original As Image = Bitmap.FromFile(stFiles(i))'・・・・※ Dim thumbnail As Image = createThumbnail(original, width, height)