Hi all
Is someone can help me doing the following code in 1 or 2 lines:

thisform.grid3.column2.dynamicforecolor= [IIF(alltrim(mycursor.c1)<>'AAA',rgb(255,0,0),RGB(0,0,0))]
thisform.grid3.column3.dynamicforecolor= [IIF(alltrim(mycursor.c2)<>'AAA',rgb(255,0,0),RGB(0,0,0))]
thisform.grid3.column4.dynamicforecolor= [IIF(alltrim(mycursor.c3)<>'AAA',rgb(255,0,0),RGB(0,0,0))]
thisform.grid3.column5.dynamicforecolor= [IIF(alltrim(mycursor.c4)<>'AAA',rgb(255,0,0),RGB(0,0,0))]
thisform.grid3.column6.dynamicforecolor= [IIF(alltrim(mycursor.c5)<>'AAA',rgb(255,0,0),RGB(0,0,0))]
thisform.grid3.column7.dynamicforecolor= [IIF(alltrim(mycursor.c6)<>'AAA',rgb(255,0,0),RGB(0,0,0))]
thisform.grid3.column8.dynamicforecolor= [IIF(alltrim(mycursor.c7)<>'AAA',rgb(255,0,0),RGB(0,0,0))]
thisform.grid3.column9.dynamicforecolor= [IIF(alltrim(mycursor.c8)<>'AAA',rgb(255,0,0),RGB(0,0,0))]
thisform.grid3.column10.dynamicforecolor= [IIF(alltrim(mycursor.c9)<>'AAA',rgb(255,0,0),RGB(0,0,0))]
thisform.grid3.column11.dynamicforecolor= [IIF(alltrim(mycursor.c10)<>'AAA',rgb(255,0,0),RGB(0,0,0))]
thisform.grid3.column12.dynamicforecolor= [IIF(alltrim(mycursor.c11)<>'AAA',rgb(255,0,0),RGB(0,0,0))]
thisform.grid3.column13.dynamicforecolor= [IIF(alltrim(mycursor.c12)<>'AAA',rgb(255,0,0),RGB(0,0,0))]

Thank's