Hi Borislav,

Your code sample also works for me. Perhaps it's a problem with my listbox class. Looks like I'll have to go digging further :(

Thanks for the assistance.

Mike


>It works for me. Try this:
>
>

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