将
e.node.Checked = True
改为:
tr.SelectedNode.Checked = True '前面定义一下 Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")