DODEFAULT() is missing?

>Can anyone tell me what is wrong with the code that I placed in the grid refresh method. I want to reset the column header's background and forecolor
>
>DO CASE
> CASE ALLT(oVar.FilterSetTo) == "PATIENT CDC ID"
> *This.Column4.Header_CdcId.BACKCOLOR = 192,192, 192
> This.Column4.Header_CdcId.FORECOLOR = 0,64,128
> This.Column4.Header_CdcId.FONTBOLD = .T.
>
> ** RESET DOB COLUMN HEADERS TO DEFAULT BLACK FOREGROUND
> *This.Column3.Header_DOB.BACKCOLOR = 192,192, 192
> This.Column3.Header_DOB.FORECOLOR = '0, 0, 0'
> This.Column3.Header_DOB.FONTBOLD = .F.
>
> CASE ALLT(oVar.FilterSetTo) == "DATE OF BIRTH"
> This.Column3.Header_DOB.FORECOLOR = 0, 64, 128
> This.Column3.Header_DOB.FONTBOLD = .T.
>
> ** RESET CDC ID COLUMN HEADERS TO DEFAULT BLACK FOREGROUND
> This.Column4.Header_CdcId.FORECOLOR = 0, 0, 0
> This.Column4.Header_CdcId.FONTBOLD = .F.
>ENDCASE