PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT combo1 AS combobox WITH ; RowSourceType = 1, ; Left = 15, ; Top = 44, ; Width = 100, ; DisplayCount = 40, ; Name = "Combo1" PROCEDURE combo1.GotFocus KEYBOARD '{ALT+DNARROW}' ENDPROC PROCEDURE combo1.Init s = '' FOR i=1 TO 100 S = m.S + ",Item"+LTRIM(STR(m.i)) NEXT this.RowSource = SUBSTR(m.s,2) this.ListIndex = 1 ENDPROC ENDDEFINEFabio