See if code below works. It's better to use DEBUGOUT because it doesn't affect form events and results are recorded in the Debugger output window.

PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN

DEFINE CLASS form1 AS form


	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"

	ADD OBJECT list1 AS listbox WITH ;
		RowSourceType = 1, ;
		RowSource = "One,Two,Three", ;
		Height = 217, ;
		Left = 12, ;
		MoverBars = .T., ;
		Top = 24, ;
		Width = 241, ;
		Name = "List1"


	PROCEDURE list1.OnMoveItem
		LPARAMETERS nSource, nShift, nCurrentIndex, nMoveBy
		DEBUGOUT PROGRAM(), nSource, nShift, nCurrentIndex, nMoveBy
	ENDPROC


ENDDEFINE

>I tried the listbox.OnMoveItem by placing a WAIT WINDOW NOWAIT "moving item...". When I drag the listbox handle up or down, I never see the wait window! Any idea what might be going wrong?
>