>IF NOT ISNULL(thisform.oleTree.SelectedItem.Parent)
>   oParent = thisform.oleTree.SelectedItem.Parent
>ENDIF
>