SORT msflexgrid by column click

[sal21]

Code: Select all

Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)

With Me.MSFlexGrid1
        Static blAscending As Boolean

        If Button = vbLeftButton Then
            If .Row = 1 And .ColSel = 0 Then
                If Not blAscending Then
                    .Sort = flexSortNumericAscending
                    blAscending = True
                Else
                    .Sort = flexSortNumericDescending
                    blAscending = False
                End If
            End If
        End If
        End With
        
        End Sub

i use this code to sort grid by click on column 0

but i need to sort also the column 51 or 52 or 53

how to modify this code?

select case statement?

note:
all columns have only number value

[HansV]

See Sort the columns in an MSFlexGrid control