PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show DEFINE CLASS form1 AS form ADD OBJECT combo1 AS combobox WITH ; Height = 30, ; Left = 21, ; Top = 21, ; Width = 107, ; Name = "Combo1" PROCEDURE activateitem LPARAMETERS ItemIndex,ItemText WAIT WINDOW "Item:"+TRANSFORM(m.ItemIndex)+CHR(13)+"Text: "+m.ItemText NOWAIT ENDPROC PROCEDURE combo1.Init DEFINE POPUP comboitems RELATIVE DEFINE BAR 1 OF comboitems PROMPT "Text1" DEFINE BAR 2 OF comboitems PROMPT "Text2" DEFINE BAR 3 OF comboitems PROMPT "Text3" DEFINE BAR 4 OF comboitems PROMPT "Text4" DEFINE BAR 5 OF comboitems PROMPT "Text5" ON POPUP comboitems _SCREEN.ActiveForm.ActivateItem(BAR(),PROMPT()) this.RowSource = "comboitems" this.RowSourceType = 9 ENDPROC PROCEDURE combo1.Destroy RELEASE POPUP comboitems ENDPROC ENDDEFINE