rt
         
         ' Now add grouping rows:
         ReDim vLastItem(0 To iNumber) As Variant
         Set iFnt = grdOutlook.Font
         iFnt.Clone sFnt
         sFnt.Bold = True
         iRow = 1
         Do
            bForce = False
            For i = 0 To iNumber
               If Not grdOutlook.RowIsGroup(iRow) Then
                  iCol = grdOutlook.ColumnIndex(sGroupColumns(i))
                  Select Case grdOutlook.ColumnSortType(sGroupColumns(i))
                  Case CCLSortIcon
        