If e.Node.Checked = True For Each nd As WinForm.TreeNode In e.Node.AllNodes nd.Delete Next
e.Node.DeleteEnd If