Dear Experts

Grid1 has 15 columns in original column order from 1 to 15.
The left most two columns are freezed.
While scrolling cursor in grid, the column order is changed.
How to keep coloumns in their original columns order set.
I have following codes on AfterRowColChange.
Please help

thisform.lockscreen = .T.
IF This.Column1.ColumnOrder <> This.LeftColumn THEN
	this.Column1.ColumnOrder = This.LeftColumn
	this.Column2.ColumnOrder = This.Column1.ColumnOrder + 1   && left 2 column to be freezed
ENDIF
*----------------------------
IF dodefault( nColIndex)
	this.nCurrRec = RECNO()
this.Refresh()
ENDIF
*----------------------------
thisform.lockscreen = .f.
thisform.REFRESH