Private Sub DGV_CellFormatting(ByVal sender As System.Object, ByVal e As _
  System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles _
  DGV.CellFormatting
 
  If TypeOf CType(sender, DataGridView).Rows(e.RowIndex).Cells(e.ColumnIndex) _
    Is DataGridViewImageCell Then
 
   If CType(CType(sender, DataGridView).Rows(e.RowIndex).Cells(e.ColumnIndex), _
     DataGridViewImageCell).Value IsNot DBNull.Value Then
    CType(CType(sender, DataGridView).Rows(e.RowIndex).Cells(e.ColumnIndex), _
    DataGridViewImageCell).ImageLayout = _
    DataGridViewImageCellLayout.Zoom
    'Column-Breite ist schon fest voreingestellt
    CType(sender, DataGridView).Rows(e.RowIndex).Height = CInt(CType(sender, _
      DataGridView).Columns(e.ColumnIndex).Width / 3 * 4)
   End If
 
  End If
 
 End Sub