.Column2.WIDTH = 225 .Column2.CONTROLSOURCE = "TempCalendar.cField1" .Column2.Header1.CAPTION = lcfield1 .Column2.Header1.ALIGNMENT = 9 .Column2.Header1.FONTBOLD = .T. .Column2.AddObject('myEdit','editbox') .column2.myedit.visible = .t. .column2.myedit.ScrollBars = 0 .column2.currentcontrol='myEdit' .column2.sparse = .f. .COLUMN2.DynamicForeColor= ICASE(SUBSTR(ALLTRIM(TempCalendar.cField1),1,1) = "!" ,[255,0,0],SUBSTR(ALLTRIM(TempCalendar.cField1),1,1) = "@",[0, 0, 255],[0, 0, 0])