>LPARAMETERS cObjName, cSelected
>
>LOCAL oObj AS ListBox, i
>
>oObj = EVALUATE("This."+cObjName)
>
>FOR i = 1 TO oObj.ListCount
>	IF ALLTRIM(oObj.ListItem[i,2]) $ cSelected

* I have tried Selected and SelectedID here, neither works.

>		oObj.SelectedID[i] = .T.
>	ENDIF
>ENDFOR
>
>RETURN
>