Can anybody tell me what's wrong with this code please!
Dim imgX As ListImage
Set imgX = ImageList1.ListImages. _
Add(, "down", LoadPicture(App.path & "\arrowdown.jpg"))
Set imgX = ImageList1.ListImages. _
Add(, "right", LoadPicture(App.path & "\arrowright.jpg"))
Set tvBG.ImageList = ImageList1
Set nod1 = tvBG.Nodes.Add(, , "Root", "Títol llibre")
Set nod1 = tvBG.Nodes.Add("Root",tvwChild, "Cap1", "Manejo")
nod1.Image = "down"
Set nod1 = tvBG.Nodes.Add("Root",tvwChild, "Cap2", "Manejo")

I put the code but it doesn't appear the image arrowdown.jpg in the node Cap1.
Thanks.