PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN ************************************************** *-- Form: form1 (d:\all_zapl\tte.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 03/09/05 04:41:10 PM * DEFINE CLASS form1 AS form DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT list1 AS listbox WITH ; Height = 170, ; Left = 29, ; MoverBars = .T., ; Top = 21, ; Width = 287, ; Name = "List1" PROCEDURE Init FOR asd = 1 TO 15 thisform.List1.AddItem(TRANSFORM(asd)) NEXT ENDPROC PROCEDURE list1.OnMoveItem LPARAMETERS nSource, nShift, nCurrentIndex, nMoveBy WAIT WINDOW "I like to moved. moved :o)))" ENDPROC ENDDEFINE * *-- EndDefine: form1 **************************************************