Private Sub menuFileNew_Click()
TreeView1.Nodes.Add , , "KEY@" & Str(TreeView1.Nodes.Count + 1), "aa"
TreeView1.Nodes.Item("KEY@" & Str(TreeView1.Nodes.Count)).Selected = True
TreeView1.StartLabelEdit
End SubPrivate Sub menuFileEdit_Click()
TreeView1.StartLabelEdit
End Sub
Private Sub TreeView1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = vbRightButton Then
   PopupMenu menuFile
End If
End Sub