>Hi:
>
> I need to put a combo-box in a form where users can to choice a color using this combo, it's like menu Tools/Options/Syntax Colors.
>
> Can you help me?
>
> Thanks

This is not exactly the way that the Syntax Colors are but it should get you started.

<b>define popup lcPop

**-- Black
*
define bar 1 of lcPop prompt "       " ;
 color rgb(0,0,0,0,0,0),rgb(255,0,0,255,0,0)

**-- Red
*
define bar 2 of lcPop prompt "       " ;
 color rgb(255,0,0,255,0,0),rgb(255,0,0,255,0,0)

**-- Cyan
*
define bar 3 of lcPop prompt "       " ;
 color rgb(0,255,255,0,255,255),rgb(0,255,255,0,255,255)

**-- Magenta
*
define bar 4 of lcPop prompt "       " ;
 color rgb(128,0,128,128,0,128),rgb(128,0,128,128,0,128)


_screen.AddObject("cboColor","combobox")
_screen.cboColor.RowSourceType = 9       && Popup
_screen.cboColor.RowSource = "lcPop"
_screen.cboColor.Visible = .T.</b>