Public Class Form1
    Inherits System.Windows.Forms.Form
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim dt As New DataTable("Users")
        Dim r As DataRow
        Dim rnd As New Random(Now.Second)
        Dim ts As New DataGridTableStyle
        Dim dgsi As MyDataGridColumnStyleWithAIcon
        Dim dgs As DataGridTextBoxColumn
 
        'DATAGRID füllen
        dt.Columns.Add("ID".ToUpper)
        dt.Columns.Add("Vorname".ToUpper)
        dt.Columns.Add("Nachname".ToUpper)
        dt.Columns.Add("I")
 
        For a As Integer = 0 To 20
            r = dt.NewRow
            For b As Integer = 0 To dt.Columns.Count - 2
                r(b) = New String(Chr(rnd.Next(50, 60)), 10)
            Next
            dt.Rows.Add(r)
        Next
        Me.DataGrid1.DataSource = dt
 
        'DATAGRIDTABLESTYLE zuweisen
        ts.MappingName = "Users"
        For a As Integer = 0 To dt.Columns.Count - 2
            dgs = New DataGridTextBoxColumn
            dgs.MappingName = dt.Columns(a).ColumnName
            dgs.Width = 100
            dgs.HeaderText = dt.Columns(a).ColumnName
            ts.GridColumnStyles.Add(dgs)
        Next
        dgsi = New MyDataGridColumnStyleWithAIcon
        dgsi.MappingName = "I"
        dgsi.Width = 16
        ts.GridColumnStyles.Add(dgsi)
        Me.DataGrid1.TableStyles.Add(ts)
    End Sub
End Class
Class MyDataGridColumnStyleWithAIcon ' DIE ENTSCHEIDENTE KLASSE
    Inherits DataGridTextBoxColumn
    Protected Overloads Overrides Sub Paint(ByVal g As Graphics, ByVal bounds _
      As Rectangle, ByVal source As CurrencyManager, ByVal rowNum As Integer, _
      ByVal backBrush As Brush, ByVal foreBrush As Brush, ByVal alignToRight As _
      Boolean)
        Dim icon_ As New System.Drawing.Icon("c:\ICON.ico")
        Dim icon As New Icon(icon_, New Size(4, 4))
        g.DrawIcon(icon, bounds)
    End Sub
End Class