local lcCol with ThisForm.Grid1 lcCol = alltrim(str(.ColumnCount + 1)) .NewObject("Column" + lcCol, "GridColumn", "PRG_Name_With_Column_Class.FXP") .Visible = .t. endwithThe naming of the columns [first parameter] assumes you never remove a column from the middle. If you remove column 3 from a 4 column grid, ColumnCount drops to 3. If you add back another column, you will get an error when adding Column4 because you will already have a column named Column4. I leave it to you, to maintain the column naming.