Is this how I would do It? It seems to be ignoring my conditions and is showing them all with a blue ForeColor.

.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])