Be sure to change the keys to something unique.

VB Code:
  1. Private Sub TreeView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)

  2.     Dim objNode As Node

  3.     If Button = vbRightButton Then

  4.         If (TreeView1.SelectedItem Is Nothing) Then

  5.             ' Nothing selected - add to the root.

  6.             Set objNode = TreeView1.Nodes.Add(, , "MustBeUnique", "[Change the Text]")

  7.         Else

  8.             ' A node was right clicked on - might as well add the node there.

  9.             Set objNode = TreeView1.Nodes.Add(TreeView1.SelectedItem.Key, tvwChild, "UniqueKeyAgain", "[Child Node]")

  10.         End If

  11.         objNode.Selected = True

  12.         TreeView1.StartLabelEdit

  13.     End If

  14. End Sub