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
Steve Kramer
Kramer & Kramer Design
"Home of Go Cartoons"
Web Site:
www.stephenkramer.comWould you believe Far Side Lite?
More than 270 original cartoons.