Dim dtp As New System.data.DataTable
dtp.Columns.Add("Bilder", GetType(System.Drawing.Bitmap))
 
For Each file As String In My.Computer.FileSystem.GetFiles _
("Verzeichnis", FileIO.SearchOption.SearchTopLevelOnly, "*.jpg")
 
    Dim bmp As New Bitmap(file)
    Dim thm As New Bitmap(100, 100)
    Using g As Graphics = Graphics.FromImage(thm)
         g.DrawImage(bmp, 0, 0, 100, 100)
    End Using
 
    dtp.Rows.Add(thm)
Next file
 
DataGridView1.DataSource = dtp
DataGridView1.AutoResizeRows()
DataGridView1.AutoResizeColumns()