umnArrayIndex As Integer
End Type
Private m_tSort() As tSortInfo
Private m_iSortIndexCount As Integer
Private m_iLastSortIndex As Integer

Private m_bGridMatch As Boolean

Friend Sub SetGridMatch()
   m_bGridMatch = True
End Sub

Friend Property Get GridMatch() As Boolean
   GridMatch = m_bGridMatch
End Property

Friend Sub RemoveGroupBubbles()
Dim i As Long
Dim j As Long
Dim iLastGroupItem As Long
Dim tSwap As tSortInfo

   For i = 1 To m_iSortIndexCount
      If (m_tSort(i).Group) Then
         If (i - iL