>DO CASE
>CASE m.stype = 1
>FOR i = 1 TO THISFORM.lstSlist4.ListCount
>IF LEFT(THISFORM.lstSlist4.List(i),LEN(ALLTRIM(m.stext))) ;
>!= alltrim(m.stext)
>THISFORM.lstSlist4.RemoveItem (THISFORM.lstSlist4.ListIndex)
>ENDIF
>ENDFOR
>
>I have this code in a command button that does a partial search on a drop-down list in my combobox. If the partial search text does not match the item in the combobox list, I want to Remove the item from the combobox. But I get an error on the THISFORM.lstSlist4.RemoveItem command line. Am I even close? I have never done this before. I think I am close. Help please. And thank you.

You'll need to run your loop backwards through the list, otherwise you're changing the length of the list while you are in the loop.

FOR i = THISFORM.lstSlist4.ListCount TO 1 STEP -1