Private Sub Form_Load()
TV.ImageList = ImageList1

TV.Nodes.Add , , , "sanu", 1 'add text and image from imagelist1
TV.Nodes.Add , , , "test", 1
TV.Nodes.Add , , , "strip", 1
TV.Nodes.Add , , , "list", 1
TV.Nodes.Add , , , "view", 1
TV.Nodes.Add , , , "time", 1
TV.Nodes.Add , , , "now", 1
TV.Nodes.Add , , , "yes", 1
End Sub

TextToSearch = "yes"

dim X as integer
for X = 0 to TV - 1
if TextToSearch = TV.nodes(x).text ' allways end up with error
next X

Note : i wanna search the text and remove TextTosearch and the image

Help me please VB6 master...