ellSortOrderCOnstants)
Dim i As Long
Dim iRow As Long
Dim iCol As Long
Dim iNumber As Long
Dim sFnt As StdFont
Dim iFnt As IFont
Dim sJunk() As String, eJunk() As cShellSortOrderCOnstants
Dim bForce As Boolean
Static iRefCount As Long

   iRefCount = iRefCount + 1
   iNumber = iItems - 1
   If (iNumber &gt; 2) Then
      MsgBox "Can't do it - max grouping is restricted to 3 columns for this
       demo.", vbInformation
   Else
      ' Stop redraw for speed:
      If (iRefCount = 1) Then
         grdOutlook.