Public Sub AddSizedColoredColumns() Dim tsProducts As New DataGridTableStyle tsProducts.MappingName = "Products" Dim cstbProdName As New DataGridTextBoxColumn cstbProdName.MappingName = "ProductName" cstbProdName.HeaderText= "Product Name" cstbProdName.Width = 250 Dim cscolUnitPrice As New ColoredTextBoxColumn cscolUnitPrice.MappingName = "UnitPrice" cscolUnitPrice.HeaderText = "Unit Price" cscolUnitPrice.Width = 150 tsProducts.GridColumnStyles.Add(cstbProdName) tsProducts.GridColumnStyles.Add(cscolUnitPrice) DataGrid1.TableStyles.Add(tsProducts) End Sub