define class GridColumn as column procedure Init ** optional init code here ** add any other procedures you want as well endproc procedure Resize ** Your resize code here endproc enddefineIn the form, add columns as needed:
set procedure to name_of_prg_with_column_class additive set with ThisForm.Name_of_Grid .AddObject("Column2", "GridColumn") .Visible = .t. endwith release procedure name_of_prg_with_column_class