Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '添加根节点
        TreeView1.Nodes.Add("公卫科")
        TreeView1.Nodes.Add("收费室")
        TreeView1.Nodes.Add("化验室")
        TreeView1.Nodes.Add("骨伤科")
        '添加子节点
        TreeView1.Nodes(0).Nodes.Add("姚明")
        TreeView1.Nodes(1).Nodes.Add("董迎春")
        TreeView1.Nodes(2).Nodes.Add("徐建强")
        TreeView1.Nodes(3).Nodes.Add("雷笑旺")
        '添加子节点下的子节点
        TreeView1.Nodes(0).Nodes(0).Nodes.Add("1")
        TreeView1.Nodes(1).Nodes(0).Nodes.Add("2")
        TreeView1.Nodes(2).Nodes(0).Nodes.Add("3")
        TreeView1.Nodes(3).Nodes(0).Nodes.Add("4")
        '' 展开第二个根节点
        TreeView1.Nodes(1).Expand()
        '展开第二个根节点的第一个节点
        TreeView1.Nodes(1).Nodes(0).Expand()
    End Sub 
    Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        '当前选定的值
        TextBox1.Text = TreeView1.SelectedNode.Text
        '获得当前节点的父节点
        Try
            TextBox2.Text = TreeView1.SelectedNode.Parent.Text
        Catch ex As Exception
            MsgBox(ex.Message & vbCrLf & "已是根节点")
        End Try
    End Sub
End Class