RootNavigationNode Property Example

The following example adds a global navigation node to the right of the home navigation node.

Private Sub AddNode()
Dim myRNode As NavigationNode
Dim myPage As String

Set myRNode = ActiveWeb.RootNavigationNode
myPage = "http://myServer/myWeb/search.htm"

Call myRNode.Children.Add(myPage, "Search", _
    fpStructRightmostChild)
ActiveWeb.ApplyNavigationStructure
End Sub