finding all parent nodes in a treeview

[zubair]

I am trying to find all the parent nodes.
I have been trying the following with the parent property, but it says that it is nothing, any suggestions????

for intIndex = 1 To Journey_Tree1.Nodes.Count
Set nodTmp = Journey_Tree1.Nodes.Item(ind)
If nodTmp.Parent Then
strTmpKey = Journey_Tree1.Nodes(ind).key
end if
next