>Yes, yes it will work this way. Visually add and extra column, by default it will be at the end all the columns. Now shift this latest (last) column to be the first column visually, setting the no. as 1 in the properties sheet. the it will stop working

O!
I missed that part :-( sorry, Change the code in ADD button to be:

thisform.LockScreen = .t.
***THIS.PARENT.New()
APPEND BLANK
cName = THISform.grid1.Columns(thisform.Grid1.LeftColumn)
DO WHILE THISform.grid1.Columns(thisform.Grid1.LeftColumn).ColumnOrder # 1
   THISform.grid1.DoScroll(4)
   cName = THISform.grid1.Columns(thisform.Grid1.LeftColumn)
ENDDO
cName.SETFOCUS()
thisform.LockScreen = .f.