>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 >>