WITH thisform .g1.RecordSource="crs_grid" .g1.RecordSourceType = 1 .g1.ColumnCount=7 .g1.readonly = .f. .g1.Refresh() WITH .g1 .... IF TYPE('.Column7.Text1.name') = 'C' .Column7.RemoveObject('Text1') ENDIF IF !TYPE('.Column7.Check1.name') = 'C' .Column7.NewObject("Check1", "CheckBox") ENDIF .column7.header1.ToolTipText = 'Delete this order' .column7.header1.caption = 'Delete' .Column7.Check1.Visible = .T. .Column7.Check1.Enabled = .T. .Column7.Check1.ReadOnly = .F. .Column7.Sparse = .F. .column7.Check1.caption = "" .column7.Alignment = 2 .column7.width = 59 .column7.backcolor = RGB(255,255,0) .column7.forecolor = RGB(255,0,0) .column7.fontbold = .T. ENDWITH ENDWITHthanks