'' &lt;/summary&gt;
Private Sub chkAutoGrouping_Click()
   grdThis.AllowGrouping = (chkAutoGrouping.Value = vbChecked)
   ' Making rows visible is not (currently) allowed
   ' whilst grouping is in effect
   chkVisible.Enabled = Not (grdThis.AllowGrouping)
End Sub

''' &lt;summary&gt;
''' Sets whether the grid shows a background bitmap or not.
''' &lt;/summary&gt;
Private Sub chkBackground_Click()
   If chkBackground.Value = Checked Then
      Set grdThis.BackgroundPicture = picBackground.Picture
      ' wo