Хочешь помучатся...:) помучайся..

Маленький примерчик

Enum MyStyles
Style1 = 1
Style2 = 2
Style3 = 3
Style4 = 4
End Enum

Public Function SetNewStyle(ByVal TableName As DataTable, ByVal StyleIs As MyStyles) As DataGridTableStyle
Dim myStyle As New DataGridTableStyle
Select Case StyleIs
Case MyStyles.Style1
myStyle.DataGrid = Me.DataGrid1
myStyle.GridColumnStyles.AddRange(New System.Windows.Forms.DataGridColumnStyle() {Me.Col1})
myStyle.HeaderForeColor = System.Drawing.SystemColors.ControlText
myStyle.MappingName = TableName.TableName
Col1.Format = ""
Col1.FormatInfo = Nothing
Col1.HeaderText = "Hello"
Col1.MappingName = "Column1"
Col1.Width = 75
'.............
Case MyStyles.Style2
'.............
End Select
Return myStyle
End Function


DataGrid1.TableStyles.AddRange(New System.Windows.Forms.DataGridTableStyle() {SetNewStyle(Table1,MyStyles.Style1)})

//////