Redraw = False
      End If
      
      If (iNumber &lt; 0) Then
         m_bGroup = False
         ' Remove all existing group rows:
         For iRow = grdOutlook.Rows To 1 Step -1
            If (grdOutlook.CellItemData(iRow, 14) &gt; 0) Then
               grdOutlook.RemoveRow iRow
            End If
         Next iRow
         For i = 0 To 2
            grdOutlook.ColumnVisible("group" &amp; i + 1) = False
         Next i
         For iRow = 1 To grdOutlook.Rows
            grdOutlook.RowVisible(iRow)