Private Sub Create_Table()
   ' Create DataSet.
   myDataSet = New DataSet("myDataSet")
   ' Create DataTable.
   Dim myCustomerTable As New DataTable("Customers")
   ' Create two columns, and add them to the table.
   Dim CustID As New DataColumn("CustID", GetType(Integer))
   Dim CustName As New DataColumn("CustName")
   myCustomerTable.Columns.Add(CustID)
   myCustomerTable.Columns.Add(CustName)
   ' Add table to DataSet.
   myDataSet.Tables.Add(myCustomerTable)
   dataGrid1.SetDataBinding(myDataSet, "Customers")
   myTableStyle = New DataGridTableStyle()
   myTableStyle.MappingName = "Customers"
   AddHandler myTableStyle.HeaderBackColorChanged, AddressOf HeaderBackColorChangedHandler
   AddHandler myTableStyle.HeaderForeColorChanged, AddressOf HeaderForeColorChangedHandler
End Sub


' Change header background color.
Private Sub OnHeaderBackColor_Click(sender As Object, e As System.EventArgs) Handles button1.Click
   dataGrid1.TableStyles.Clear()
   Select Case comboBox1.SelectedItem.ToString()
      Case "Red"
         myTableStyle.HeaderBackColor = Color.Red
      Case "Yellow"
         myTableStyle.HeaderBackColor = Color.Yellow
      Case "Blue"
         myTableStyle.HeaderBackColor = Color.Blue
   End Select
   myTableStyle.AlternatingBackColor = Color.LightGray
   dataGrid1.TableStyles.Add(myTableStyle)
End Sub