主题：我觉得这个是个BUG

呵呵，收到，我检查检查。

你修改一下代码吧，不用name属性，用text属性。

不是bug来的，因为修改的其实是标题(也就是text)，而不是名称，名称和标题是分开的。

呵呵，只能说那个按钮的名称“重命名”取得不合适，改为“修改标题”比较好。

呵呵，用name和text都正确的，如果要运行中改名的话，记得用text就行。
 
如果要Name和Text保持一致，可以这样设计重命名按钮:
 
nd = Trv.SelectedNode
Dim Val As String = nd.text
If InputValue(val, "筛选","请输入出生日期:") Then
   nd.Text = Val
   nd.Name = val
End If