Kevin,

Here's a simple test I just threw together for you:

IF PEMSTATUS(_Screen, 'cboTest', 5)
	_Screen.RemoveObject('cboTest')
ENDIF

DEFINE POPUP popTest

DEFINE BAR 1 OF popTest PROMPT 'Red' COLOR ,RGB(0,0,0,255,0,0)
DEFINE BAR 2 OF popTest PROMPT 'Blue' COLOR ,RGB(0,0,0,0,0,255)
DEFINE BAR 3 OF popTest PROMPT 'Green' COLOR ,RGB(0,0,0,0,255,0)
DEFINE BAR 4 OF popTest PROMPT 'Yellow' COLOR ,RGB(0,0,0,255,255,0)

_Screen.AddObject('cboTest', 'ComboBox')

WITH _Screen.cboTest
	.Top = 200
	.Left = 50
	.RowSourceType = 9
	.RowSource = 'popTest'
	.Visible = .t.
ENDWITH

Once you select a color and even after you leave the combobox, the font is standard black on white. BAR() does return zero, but you can use the combobox's ListIndex property to see which bar was selected.

HTH,
Chad

>I was able to get the bars colored, but when I select
>a bar and move off the field, the selection is black.
>
>If I check BAR() in the InteractiveChange, it returns 0.