Private Function GetLastParentNode(ByVal CurrentNode As TreeNode) As _
      TreeNode
        If CurrentNode.Parent Is Nothing Then Return CurrentNode
        Do
            CurrentNode = CurrentNode.Parent
        Loop While (Not CurrentNode.Parent Is Nothing)
        Return CurrentNode
    End Function