Unas funciones que hice para no escribir mucho:
Public Sub AddNode(sName, sKey)
tvwResults.Nodes.Add , , sKey, sName, "closed"
tvwResults.Nodes(sKey).ExpandedImage = "open"
tvwResults.Nodes(sKey).Tag = sKey
End Sub
Public Sub ClearNodes()
tvwResults.Nodes.Clear
End Sub
Public Sub AddChild(sKey, sParentKey, sName)
tvwResults.Nodes.Add sParentKey, tvwChild, sKey, sName, "sect"
tvwResults.Nodes.Item(sKey).ExpandedImage = "sectopen"
End Sub
EDIT: Me olvide las etiquetas code.
Saludos