1: 2: 3: 4: 5: 6: 7: 8: 9: 10:
Private Sub CheckUncheckAll(ByVal ND As TreeNode, ByVal blnCheck As Boolean) ND.Checked = blnCheck For Each ndChild As TreeNode In ND.Nodes If ndChild.Nodes.Count > 0 Then CheckUncheckAll(ndChild, blnCheck) End If Next End Sub