Dim dgv_ic As DataGridViewImageColumn
'' Column mit bilder finden
  For x = 0 To DGV.Columns.Count - 1
   If DGV.Columns(x).GetType.ToString.Contains("DataGridViewImageColumn") Then
    dgv_ic = CType(DGV.Columns(x), DataGridViewImageColumn)
    dgv_ic.Width = 70
   End If
  Next
'' alle zeilen durchlaufen und ImageLayout einstellen
  For i = 0 To DGV.Rows.Count - 1
   Dim ic As DataGridViewImageCell = CType(DGV.Rows(i).Cells(1), _
     DataGridViewImageCell)
   ic.ImageLayout = DataGridViewImageCellLayout.Zoom
  Next