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
**************************************************