VB6 Question.

[sumpra]

Hi, anyone with vb6 skills can help me implement a code in to this vb6 code? i want it to add strData to List2.List IF it contains "apple".

here';s the snap shot of the code

http://www.freewebs.com/tomwoodoo/vb6.gif

[cluck]

if instr(strdata, "apple") <> 0 then
list2.additem(strdata)
end if