PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form ShowWindow = 2 DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT list1 AS listbox WITH ; RowSourceType = 1, ; RowSource = "AAAA,BBBB,CCCC,DDDD,EEEE", ; Height = 170, ; Left = 20, ; Top = 11, ; Width = 100, ; Name = "List1" PROCEDURE list1.ProgrammaticChange WAIT windows "programmaticchange "+STR(m.this.ListIndex) NOWAIT ENDPROC ENDDEFINEFabio