مساعدة في شجرة بها تشيك بوكس

السلام عليكــم ورحمـة الله وبركاتــه ،،

بالنسبة للسؤال الأول فهذا هو الكود

	Dim checkedNodes As String = ""

	Private Sub ReadCheckedNodes(ByVal node As TreeNode)
		If node.Checked Then
			checkedNodes &= node.Text & vbNewLine
		End If

		For Each nd As TreeNode In node.Nodes
			ReadCheckedNodes(nd)
		Next
	End Sub

	Private Sub btnGetChecked_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetChecked.Click
		checkedNodes = ""
		For Each node As TreeNode In Me.TreeView1.Nodes
			ReadCheckedNodes(node)
		Next
		MsgBox(checkedNodes)
	End Sub

وبالنسبة للسؤال الثانى

	Private Sub TreeView1_AfterCheck(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterCheck
		For Each node As TreeNode In e.Node.Nodes
			node.Checked = e.Node.Checked
		Next
	End Sub