Ordenar MsFlexGrid

[peladilla18]

Buenos días, para ordenar las columnas alfabéticamente, prueba este código:
suponemos que el nombre del msFlexgrid es grid2:

Private Sub grid2_Click()
Static tipo As Boolean
If (grid2.MouseRow = 0) Then

' Ordena en forma ascendente
If tipo Then
grid2.Col = grid2.MouseCol
grid2.Sort = 2
tipo = False
' Ordena en forma descendente
Else
grid2.Col = grid2.MouseCol
grid2.Sort = 1
tipo = True
End If
End If
End Sub

con esto, al pulsar sobre cualquiera de los encabezamientos, te ordena los campos del flexgrid asociados a la columna sobre la que seleccionaste, de manera ascendente o descendente....

Ya nos contarás.