VB，如何点击父节点时，依次获得所有子节点的名称

VB，如何点击父节点时，依次获得所有子节点的名称

'以下是部分 TreeView 属性方法，自己参考试着写
Trv1.SelectedItem.Index 总的顺序索引号
Trv1.SelectedItem.Key 返回该标签的 Key 值
Trv1.SelectedItem.Root 返回根标签
Trv1.SelectedItem.Parent 返回父节点
Trv1.SelectedItem.Children 返回其下有几个子节点(子)
Trv1.SelectedItem.Child 返回其下第一个子节点(子)
Trv1.SelectedItem.Previous 返回同层的上一个节点标签
Trv1.SelectedItem.Next 返回同层的下一个节点标签
Trv1.SelectedItem.FirstSibling 返回同层的第一个标签
Trv1.SelectedItem.LastSibling 返回同层的最后一个标签
Trv1.SelectedItem.FullPath 返回从第一层节点开始以“\”分割的路径字符串
Trv1.SelectedItem.Selected 设置/返回该标签是否被选择(True|False)
Trv1.LabelEdit = 1|2 编辑标签的模式1(自动)|2(手动)
Trv1.SingleSel = True|False 返回或设置一个值，指定项目被选中时是否展开并折叠前一个。
Trv1.StartLabelEdit 编辑标签开始，调用该方法时，BeforeLabelEdit 事件也同时发生。

'取得顶层(父)节点标签
If Not (Trv1.SelectedItem.Parent Is Nothing) Then
MsgBox "顶层节点是：" & Trv1.SelectedItem.Parent
End If

'取得同层的前一个节点标签
If Not (Trv1.SelectedItem.Previous Is Nothing) Then
MsgBox "前一个标签是：" & Trv1.SelectedItem.Previous
End If

'取得同层的后一个节点标签
If Not (Trv1.SelectedItem.Next Is Nothing) Then
MsgBox "后一个标签是：" & Trv1.SelectedItem.Next
End If