>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 >Hello Fabio,