PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN ************************************************** *-- Form: form1 (d:\works\traff\tte.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 10/30/05 04:57:04 PM * DEFINE CLASS form1 AS form DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT list1 AS listbox WITH ; Height = 190, ; Left = 40, ; MultiSelect = .T., ; Top = 28, ; Width = 168, ; Name = "List1" PROCEDURE Init FOR asd = 1 TO 10 this.List1.AddItem(TRANSFORM(asd)) NEXT ENDPROC PROCEDURE list1.InteractiveChange LOCAL lnCount, lnFor lnCount = 0 FOR lnFor = 1 TO thisform.List1.ListCount IF thisform.List1.Selected(lnFor) lnCount = lnCount + 1 ENDIF NEXT WAIT WINDOW lnCount NOWAIT ENDPROC ENDDEFINE * *-- EndDefine: form1 **************************************************