Сортировка в MSFlexGrid по щелчку мыши над заголовком колонки - VB

Формулировка задачи:

Подскажите, пожалуйста, как в MSFlexGrid сделать сортировку по тому столбцу, над заголовком которого пользователь сделал двойной щелчок мыши.

Решение задачи: «Сортировка в MSFlexGrid по щелчку мыши над заголовком колонки»

textual
                            Листинг программы 
                        

                            Sub SortFlexGrid(ByRef gridObj As MSFlexGrid, ByVal sortCol As Integer, _
                 ByVal hiddenCol As Integer, ByRef colType() As String, _
                 Optional ByVal caseSens As Boolean, Optional ByVal showMarker As Boolean)
'
' gridObj - кого сортируем, sortCol - по какому столбцу, hiddenCol - какой скрытый столбец
' используем для сортировки, colType() - массив, 'переданный сверху' и хранящий описания
' типов столбцов ('STRING', 'NUMERIC' и т.д.), caseSens - учитывать ли регистр (для
' строкового типа), showMarker - показывать ли, по какому столбцу и как именно отсортирована
' таблица (помечая '+' и '-' заголовок столбца sortCol).
                        