Prev Property Example

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

Private Sub MovePrev()
Dim theNode as NavigationNode
Dim thePrevNode as NavigationNode
On Error Resume Next

Set theNode = ActiveWeb.HomeNavigationNode.Children(1)
Set thePrevNode = theNode.Prev

If Err <> 0 Then
    MsgBox “The current navigation level starts here.”
End If
End Sub