afterSelectNode事件
Dim tbp As WinForm.TreeView = e.senderFor Each pg As WinForm.TreeNode In tbp.allNodes pg.text = pg.text.trim("←")Nexte.Node.Text = e.Node.Text & "←"