>Hello Edward
>thanks for your reply, but i have a doubt
>first:
>where in my code i must apply "Column.Control.Lostfocus or Column.Control.Interactivechange events"
>because i only can make these event on runtime not in design mode.
>also i have another code to capture the position of the active column in the grid and hide them with the event before form init:
>
>STORE "" TO clname
>FOR EACH myform IN _Screen.forms
>IF UPPER(myform.name)="SBO"
>WITH myform.Pageframe1.Page1.Cont1.Grid1
>FOR i=1 TO .columnCount
>IF UPPER(.Columns(i).ControlSource)="BI.EDEBITO"
>clname=.Columns(i).name
>.RemoveObject(clname)----(a)
>exit
>ENDIF
>NEXT i
>EXIT
>ENDWITH
>ENDIF
>NEXT myform
>
I don't think this code may work all time. Could you change it to following:

For each oForm in _screen.forms
  IF not UPPER(oForm.name)=="SBO"
    Loop
  Endif
  WITH oForm.Pageframe1.Page1.Cont1.Grid1
    For each oColumn in .columns
      IF not UPPER(oColumn.ControlSource)=="BI.EDEBITO"
        loop
      Endif
      .RemoveObject(oColumn.name)
      Exit
    Endfor
  Endwith
  Exit
Endfor