Next Property Example

This example moves the navigation pointer to the next node, unless the current node is the last node of the level in the navigation structure.

Private Sub MoveNext()
Dim theNode As NavigationNode
Dim theNextNode As NavigationNode
On Error Resume Next

Set theNode = ActiveWeb.HomeNavigationNode.Children(1)
Set theNextNode = theNode.Next

If Err <> 0 then
    MsgBox “End of the current navigation row”
End If
End Sub