DO CASE CASE SomeExpression THIS.Forecolor=nSomecolor CASE SomeExpression THIS.Forecolor=nSomecolor .... ENDCASE