led.Value = Checked)
End Sub

''' &lt;summary&gt;
''' Toggles whether the grid's header is flattened
''' &lt;/summary&gt;
Private Sub chkFlatHeader_Click()
   grdThis.HeaderFlat = (chkFlatHeader.Value = Checked)
End Sub

''' &lt;summary&gt;
''' Toggles whether a header is displayed in the grid or not.
''' &lt;/summary&gt;
Private Sub chkHeader_Click()
Dim bState As Boolean
   bState = (chkHeader.Value = Checked)
   grdThis.Header = bState
   chkHeaderButtons.Enabled = bState
   chkFlatHeader.Enabled = bStat