Dim _objfont As New Font("Tahoma", 8, FontStyle.Bold) 'Schriftart für die 
' DataGridTextBox
Dim _dgTBStyle As DataGridTextBoxColumn = New DataGridTextBoxColumn() 'TextBox 
' fürs DataGrid
Dim _dgdtblStyle As New DataGridTableStyle() 'Instanz von DataGridTableStyle
 
        'Das DGTableStyle-Objekt anpassen
        With _dgdtblStyle
            .MappingName = "DeinTabellenName" 'Hier muss die Tabelle rein, die 
            ' in deiner DataTable/Dataset vorhanden ist
            .PreferredColumnWidth = 150
            .PreferredRowHeight = 24
        End With
 
 
 
        With _dgTBStyle
            .TextBox.Font = _objfont
            .MappingName = "DeinSpaltenName" 'Hier muss die Spalte Deiner 
            ' Tabelle rein, die Bold dargestellt werden soll
        End With
 
        _dgdtblStyle.GridColumnStyles.Add(_dgTBStyle) 'Die TextBox dem 
        ' DataGridStyleObjekt adden
 
        Me.DataGrid1.TableStyles.Add(_dgdtblStyle) 'Und dem TableStyle der 
        ' GridBox dann das DataGridStyle Objekt verpassen