dar vuelta un flexgrid

[nadiesabenada]

Hola tengo un problema con unos msflexgrid, quiero dar vuelta la columna seleccionada del flexgrid1, entonces primero la copio al flexgrid2, y despues hago un for al reves y la vuelvo a pasar al flexgrid1. Pero algo no funciona y cuando me copia de vuelta la lista del flexgrid2 al primero (supuestamente invertida) me lo rellena con el primer item nada mas:

Dim s As Integer 'aca lo copio al flexgrid2
For s = 0 To MSFlexGrid1.Rows - 1
MSFlexGrid2.AddItem (MSFlexGrid1.TextMatrix(s, MSFlexGrid1.ColSel))
Next

Dim x As Integer 'aca pongo un for al reves para que me lo pase invertido
For x = 0 To MSFlexGrid1.Rows - 1 'de vuelta al flexgrid1
Dim d As Integer
For d = MSFlexGrid2.Rows - 1 To 0 Step -1
MSFlexGrid1.TextMatrix(x, MSFlexGrid1.ColSel) = MSFlexGrid2.TextMatrix(d, 0)
Next
Next


¿que esta mal? Al que me pueda ayudar, muchas gracias. Nos vemos