Dim tb1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim s As String Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") For Each nd As WinForm.TreeNode In trv.allNodes If nd.Level > 0 Then If nd.Checked Then s = s & "," & nd.Text End If End If Next