Fill a ListBox, hold down left mouse button,
and move on list Items:
multiple ProgrammaticChange occurs

correct is multiple InteractiveChange !

repro:

PUBLIC oform1

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

DEFINE CLASS form1 AS form

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


	ADD OBJECT list1 AS listbox WITH ;
		RowSourceType = 1, ;
		RowSource = "AAAA,BBBB,CCCC,DDDD,EEEE", ;
		Height = 170, ;
		Left = 20, ;
		Top = 11, ;
		Width = 100, ;
		Name = "List1"

	PROCEDURE list1.ProgrammaticChange
           WAIT windows "programmaticchange   "+STR(m.this.ListIndex) NOWAIT	
        ENDPROC


ENDDEFINE

Fabio