dim selnode as nodePrivate Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
if '''''' then
Set selnode = Node
end if
End SubPrivate Sub TreeView1_Click()
If Not selnode Is Nothing Then selnode .Checked = True
End Sub