>>X = DOW(Date()) >>Thisform.Datelabel(X).background = RGB(0,0,255) >>>>
>X = DOW(Date(),2) >myLabel = [Thisform.Label]+TRANSFORM(x) >&myLabel..BackColor = RGB(0,0,255) >Minor suggestion to that:
X = DOW(Date(),2) store rgb(0,0,255) to ([Thisform.Label]+TRANSFORM(x)+ '.BackColor')E.g. in this case you don't need to use macro.
loLabel = evaluate(([Thisform.Label]+TRANSFORM(x)) with loLabel .visible = .t. .backcolor = ... .refresh() endwithI dislike macros if they used in the context they should not be used. It makes code harder to maintain...