CLEAR CLASS mygrid DELETE FILE testxx.vc? *Create a grid class, set columncount to -1 CREATE CLASS mygrid as grid OF testxx NOWAIT = ASELOBJ(la_object,1) lo_object = la_object[1] lo_object.columncount = -1 * Uncomment next line for workaround * lo_object.resettodefault('columncount') KEYBOARD 'y' RELEASE WINDOWS "class designer" *Create a grid subclass, set columncount to something else LOCAL aobj[1], xx CREATE CLASS mygrida OF testxx as mygrid FROM testxx NOWAIT =ASELOBJ(aobj,1) aobj[1].columncount = 2 KEYBOARD 'Y' CLEAR RELEASE WINDOW 'Class Designer' *Create a form, drop on grid subclass DELETE FILE testxx.sc? CREATE FORM testxx NOWAIT =ASELOBJ(aobj,1) aobj[1].autocenter = .t. set classl to testxx.vcx aobj[1].addobject('mygrid1','mygrida') set classl to KEYBOARD 'Y' CLEAR RELEASE WINDOW 'Form Designer' MODIFY FORM testxx NOWAIT =ASELOBJ(aobj,1) ?aobj[1].mygrid1.columns[1].name RETURNI hope this helps!