vate Sub chkVisible_Click()
Dim bS As Boolean
Dim lRow As Long
   bS = (chkVisible.Value = Unchecked)
   With grdThis
      .Redraw = False
      For lRow = 1 To .Rows
         If (lRow Mod 2) = 0 Then
            .RowVisible(lRow) = bS
         End If
      Next lRow
      .Redraw = True
   End With
End Sub

''' &lt;summary&gt;
''' Adds a new column to the grid
''' &lt;/summary&gt;
Private Sub cmdAddCol_Click()
Static s_iItem As Long
   If s_iItem = 0 Then
      s_iItem = grdThis.Columns
   End If
   With 