Public Class frmGridPaint
 
    Dim dt As New DataTable
    Dim WithEvents dgv As New DataGridView With _
         {.Parent = Me, .AllowUserToAddRows = False}
 
    Dim bmps(2) As Bitmap 'Die Bildchen
 
 
    Private Sub frmGridPaint_Load(sender As System.Object, _
        e As System.EventArgs) Handles MyBase.Load
 
        'Irgendwelche Bildchen laden
        bmps(0) = New Bitmap("C:\daten\ks.jpg")
        bmps(1) = New Bitmap("C:\daten\ew.jpg")
        bmps(2) = New Bitmap("C:\daten\138.gif")
 
        'Testdaten
        dt.Columns.Add("Spalte", GetType(Integer))
        dt.Columns(0).ReadOnly = True
 
        dt.Rows.Add(1) 'Wert entspricht Arrayindex
        dt.Rows.Add(2)
        dt.Rows.Add(1)
        dt.Rows.Add(0)
 
        dgv.DataSource = dt
 
    End Sub
 
 
    Private Sub dgv_CellPainting(sender As Object, _
        e As System.Windows.Forms.DataGridViewCellPaintingEventArgs) _
        Handles dgv.CellPainting
 
        If e.RowIndex = -1 Then Exit Sub
 
        If e.ColumnIndex = 0 Then
            e.PaintBackground(e.ClipBounds, False)
 
            Dim th As Image = bmps(CInt(dt.Rows(e.RowIndex)(0))). _
            GetThumbnailImage(e.CellBounds.Width, e.CellBounds.Height, Nothing, _
            Nothing)
 
            e.Graphics.DrawImage(th, e.CellBounds.Location)
            e.Handled = True
        End If
    End Sub
End Class