Nas :)
Trasteando me he solucionado el problema.
Pongo el código por si alguien se encuentra alguna vez con el mismo problema tenga una referencia.
Código vb:
Ver originalPrivate Sub CargoTreeView()
Dim nodo As TreeNode
If numPelis > 0 Then
TreePelis.Nodes.Clear()
'Recorro toda la array.
For i As Integer = 0 To UBound(Pelis)
'Creo nodo principal, en mi caso Titulo de la pelicula.
nodo = TreePelis.Nodes.Add(Pelis(i).Titulo)
'Creo subnodos con los datos especificos de cada pelicula.
TreePelis.Nodes(i).Nodes.Add("Código: " & Trim(Pelis(i).Codigo))
TreePelis.Nodes(i).Nodes.Add("Año: " & Trim(Pelis(i).Año))
TreePelis.Nodes(i).Nodes.Add("Director: " & Trim(Pelis(i).Director))
TreePelis.Nodes(i).Nodes.Add("Duracion: " & Trim(Pelis(i).Duracion))
TreePelis.Nodes(i).Nodes.Add("Genero: " & Trim(Pelis(i).Genero))
TreePelis.Nodes(i).Nodes.Add("Sinopsis: " & Trim(Pelis(i).Sinopsis))
TreePelis.Nodes(i).Nodes.Add("Calificada para Mayores de 18: " & Trim(Pelis(i).Edad))
Next
TreePelis.EndUpdate()
End If
End Sub
Salu2,
Chechu.