Hi Neil,

the good solution ( for max 7 item) is:

On activator procedure ( List.LostFocus,Button.Click...)

*tField is not indexed

sList=''
WITH ListBox
FOR i=1 to .ListCount
IF .Selected(m.i)
sList=m.sList+",'"+.List(m.i)+"'")
ENDIF
ENDWITH

SELECT blabla FROM table WHERE inlist(tField &sList.)

if is indexed

CREATE CURSOR tList (fSel C(2))
WITH ListBox
FOR i=1 to .ListCount
IF .Selected(m.i)
INSERT INTO tList VALUES (.List(m.i))
ENDIF
ENDWITH

SELECT blabla FROM table JOIN tList ON tField=fSel

Fabio