        .SortOrder(iSortIndex) = CCLOrderAscending
      Else
         sTag = ""
         .SortOrder(iSortIndex) = CCLOrderDescending
      End If
      grdThis.ColumnTag(lCol) = sTag
      
      ' Set the type of sorting:
      .SortType(iSortIndex) = grdThis.ColumnSortType(lCol)
   End With
   
   ' Do the sort:
   Screen.MousePointer = vbHourglass
   grdThis.Sort
   Screen.MousePointer = vbDefault
   
End Sub

''' &lt;summary&gt;
''' Respond to column width changes.
''' &lt;/summary&gt;
''' &lt;param na