试试这样
AfterCheckNode 事件
For Each nd As WinForm.TreeNode In e.Sender.AllNodes
If Not( nd.FullPath = e.Node.FullPath AndAlso nd.Index = e.Node.Index ) Then nd.Checked = False
Next