Good Morning Marcia,
>Hi Agnes.
>
>PMFJI, does this ADD OBJECT (not the member*) thing work with versions prior VFP 8.0?
>
>Sure. ADD OBJECT is a clause of DEFINE CLASS.
I was not exact with my question. ::)
Does it replace the standard textbox or add it a new Object? This is because the column creates the textbox (and the header) if I do not add any ADD OBJECT.
Would it be possible to add a standard header the same way?

>Can I add moe then one object?
>
>As long as the container is appropriate for whatever you are trying to add to it. Of course, trying to use your own custom columns with custom headers and text boxes in your grid class is a real PITA prior to version 8. You need code similar to this in the grid class's Init() to use your custom member classes:
>
>

>LOCAL lnColumnCount, loColumn, lcName, lnCol
>SET PROCEDURE TO GridMembers.prg ADDITIVE
>lnColumnCount = This.ColumnCount
>IF lnColumnCount > 0
>  *** dimension the arrays properly
>  DIMENSION This.aControlSources[ lnColumnCount ]
>  DIMENSION This.aCaptions[ lnColumnCount ]
>  *** Remove all the base class columns
>  FOR lnCol = 1 TO lnColumnCount
>    *** Save the colntrolSource and the Caption
>    This.aControlsources[ lnCol ] = EVALUATE( 'This.Column' + TRANSFORM( lnCol ) + '.ControlSource' )
>    This.aCaptions[ lnCol ] = EVALUATE( 'This.Column' + TRANSFORM( lnCol ) + '.Header1.Caption' )
>    This.RemoveObject( 'Column' + TRANSFORM( lnCol ) )
>  ENDFOR
>  *** Now add the custom columns
>  FOR lnCol = 1 TO lnColumnCount
>    lcName =  'Column' + TRANSFORM( lnCol )
>    This.AddObject( lcName, 'colCustom' )
>    loColumn = EVALUATE( 'This.' + lcName )
>    loColumn.ControlSource = This.aControlsources[ lnCol ]
>    loColumn.Header1.Caption = This.aCaptions[ lnCol ]
>    loColumn.Visible = .T.
>  ENDFOR
>ENDIF
>

Yes that must be done if a grid was visual created.

BTW Is there a reason that you EVALUATE the columns and not use THIS.COLUMNS(lnCol).***?

Agnes