
      ByVal iSortIndex As Integer _
   ) As Long
   GridColumnArrayIndex = m_tSort(iSortIndex).GridColumnArrayIndex
End Property
Friend Property Let GridColumnArrayIndex( _
      ByVal iSortIndex As Integer, _
      ByVal iGridColumnArrayIndex As Long _
   )
   m_tSort(iSortIndex).GridColumnArrayIndex = iGridColumnArrayIndex
End Property

Private Function pbValidSortIndex( _
      ByVal iSortIndex As Integer _
   ) As Boolean
   
   If (iSortIndex &gt; 0) And (iSortIndex &lt;= 8) Then
      If (iSortIndex 