In the click(), a reference to the currently selected node is passed. So, in the
click, you could have code like this:

Lparameters node

selectedkey = node.key

To get a reference to the parent, you could do this:

parentkey = node.parent.key

If a parent does not exist, an ole error will be surfaced. So, you will need to make code like this a bit more robust, as follows:

If Type("node.Parent.index") = "N" && a parent does exist
Else
*/ no parent exists
Endif