
      
      ' Place ascending/descending icon:
      For iCol = 1 To grdOutlook.Columns
         If (iCol &lt;&gt; lCol) Then
            If grdOutlook.ColumnImage(iCol) &gt; 16 Then
               grdOutlook.ColumnImage(iCol) = 0
            End If
         ElseIf grdOutlook.ColumnHeader(iCol) &lt;&gt; "" Then
            grdOutlook.ColumnImageOnRight(iCol) = True
            If (.SortOrder(1) = CCLOrderAscending) Then
               grdOutlook.ColumnImage(iCol) = 17
            Else
               grdOu