>Thanks Fred and Barbara,
>
>I changed my code as follows and it worked!
>
>DO CASE
> CASE m.stype = 1
> FOR i = THISFORM.lstSlist4.ListCount TO 1 STEP - 1
> IF LEFT(THISFORM.lstSlist4.List(i),LEN(ALLTRIM(m.stext))) ;
> != alltrim(m.stext)
> THISFORM.lstSlist4.RemoveItem(i)
> ENDIF
> ENDFOR
>ENDCASE

Great!
Tip: if you want your code to show formatted here in the UT put a "< pre >" tag before your code and a "< /pre >" tag after it. Leave out the spaces. and the quotes:
<pre>

IF whatevver
  DO ehatever
ENDIF

</pre>