Private Sub getNavigationServiceButton_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
' Retrieve first navigation service up the content tree
Dim svc As NavigationService = NavigationService.GetNavigationService(Me.getNavigationServiceButton)
If svc IsNot Nothing Then
' Use navigation service
...
End If
End Sub