Si haces un :Refresh() te tiene q funcionar function Main() local oWnd, oFont, oSay DEFINE WINDOW oWnd TITLE "Tutor05" @ 1, 2 SAY oSay PROMPT "Create DBF Test" SIZE 100, 40 COLOR "R+/B" @ 5, 2 BUTTON "&Color" ; ACTION ( oSay:SetColor( CLR_BLUE, CLR_RED ), oSay:Refresh() ) ...