Private Sub TreeView1_NodeMouseClick(ByVal sender As Object, ByVal e As  _
    System.Windows.Forms.TreeNodeMouseClickEventArgs) Handles _
    TreeView1.NodeMouseClick
 
        Me.TextBox1.Text = e.Node.Text
 
End Sub
 
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 
        For i As Integer = 1 To 20
            Dim tn As New TreeNode
            tn.Text = "Node " & i.ToString
            Me.TreeView1.Nodes.Add(tn)
            tn.Nodes.Add("SubNode2 - " & i)
        Next
 
End Sub