amp; .Rows
         End If
      Next lRow
      Value = 0
      .Redraw = True
   End With
   
End Sub

''' &lt;summary&gt;
''' Sets whether to render alternate rows in a different colour.
''' &lt;/summary&gt;
Private Sub chkAlternateRowColour_Click()
   If (chkAlternateRowColour.Value = vbChecked) Then
      grdThis.AlternateRowBackColor = RGB(252, 252, 230)
   Else
      grdThis.AlternateRowBackColor = -1
   End If
End Sub

''' &lt;summary&gt;
''' Sets whether the grid allows automatic grouping or not.
'