Not really but you can do something like this...

LOCAL lnI

CREATE CURSOR myCursor (cId C(5), cCode C(10), cName C(15))
INSERT INTO myCursor VALUES ("Id","Code","Name")
INSERT INTO myCursor VALUES ("2","001","Jayesh Patel")
INSERT INTO myCursor VALUES ("3","001","John Smith")
INSERT INTO myCursor VALUES ("4","001","Jenny Brown")
INSERT INTO myCursor VALUES ("5","001","Yair Alan Griver")

DEFINE POPUP MyPopup MARGIN RELATIVE COLOR SCHEME 4
GO TOP
lnI = 1
SCAN
lcBar = "DEFINE BAR " + STR(lnI) + " OF myPopup PROMPT '" + PADR(cId,5) + "|" + PADR(cCode,10) + "|" + PADR(cName,15) + "'"
IF lnI = 1
lcBar = lcBar + "COLOR RGB(192,192,192)"
ENDIF
&lcBar
lnI = lnI + 1
ENDSCAN
Thisform.combo1.RowSourceType = 9
Thisform.combo1.RowSource = "MyPopUp"


>I have a combobox with 3 columns in the drop-down. Is there anyway to add headings to the 3 columns?
>
>TIA