FoxPro/Visual FoxPro - Matriz de colores en Combo

¿ cómo hacer una matriz de colores desde el evento clic del combo
osea si hago clic en Rojo este color pinte la caja de textto :


Do Case
Case Thisform.Combo1.Value="Rojo"
Thisform.Text3.Value=ForeColor(255,0,0)
Case Thisform.Combo1.Value="Verde"
Thisform.Text1.Value=ForeColor(0,255,0)

EndCase
tengo este esquema de momento en el evento clic del combo1
sin que me funcione .
La Propiedad RowSource=Rojo,Verde
RowSourceType=1(Valor ) esto funciona correctamente .

Proba con esto

Do Case
Case Thisform.Combo1.Value="Rojo"
Thisform.Text3.ForeColor=RGB(255,0,0)
Case Thisform.Combo1.Value="Verde"
Thisform.Text1..ForeColor=RGB(0,255,0)

EndCase