I've figured out a workaround that seems to work. It doesn't explain why dragging the mouse fires the Programmatic Change event of a list box, but if it works...


In my ListBox Base Class:

-----
ProgrammaticChangeEvent()

IF ( MDOWN() )
this.lMouseDrag = .T.
endif
--------
MouseUpEvent()

IF ( this.lMouseDrag = .T.)
this.lMouseDrag = .F.
this.InteractiveChange()
endif

-----

Thanks for the tip.
Brian Vander Plaats