>Here is an example using a listbox (I have found that this technique does not work with combobox)

Why?

>

PUBLIC oform1
>oform1=CREATEOBJECT("form1")
>oform1.Show
>RETURN
>DEFINE CLASS form1 AS form
>    Top = 0
>    Left = 0
>    Height = 238
>    Width = 468
>    DoCreate = .T.
>    Caption = "Form1"
>    Name = "Form1"
   ADD OBJECT list1 AS Combobox WITH ;
>        RowSourceType = 9, ;
>        RowSource = "P_list", ;
>        Height = 181, ;
>        Left = 60, ;
>        Top = 24, ;
>        Width = 265, ;
>        Name = "List1"
>    PROCEDURE Load
>        PUBLIC P_list
>        DEFINE POPUP P_list
>        DEFINE BAR 1 OF P_LIST ;
>          PROMPT "Item number 1 of the list";
>          FONT "Tahoma",14 style "BI";
>          COLOR , RGB(255,255,255,192,0,0)
>        DEFINE BAR 2 OF P_LIST ;
>          PROMPT "Item number 2 of the list";
>          FONT "Tahoma",11 style "B"
>        DEFINE BAR 3 OF P_LIST ;
>          PROMPT "Item number 3 of the list";
>          FONT "Arial",9 style "B";
>           COLOR , RGB(255,255,255,192,255,0)
>    ENDPROC
>ENDDEFINE

>