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.