Private Sub RemoveHistoryItem(ByVal theNavToolbar As NavigationToolbar, ByVal itemToRemove As String) 'Create a generic List Of type NavigationHistoryItem for both the Back and Forward collections. 'These Lists will then be converted into Arrays when needed. Dim theBackItems As New List(Of NavigationHistoryItem)() Dim theForwardItems As New List(Of NavigationHistoryItem)() 'Iterate through the BackHistory collection For Each theItem As NavigationHistoryItem In theNavToolbar.BackHistory 'If the ItemToRemove string does not equal the 'text of the NavigationToolbar's current Item.Text, then add ItemToRemove 'to our new BackItems list. We do NOT want to carry over 'the ItemToRemove if it exists in the current BackHistoryItems collection. If Not itemToRemove.Equals(theItem.Text) Then theBackItems.Add(New NavigationHistoryItem(theItem.Text)) End If Next 'Iterate through the ForwardHistory collection For Each theItem As NavigationHistoryItem In theNavToolbar.ForwardHistory 'If the ItemToRemove string does not equal the 'text of the NavigationToolbar's current Item.Text, then add ItemToRemove 'to our new ForwardItems list. We do NOT want to carry over 'the ItemToRemove if it exists in the current ForwardHistoryItems collection. If Not itemToRemove.Equals(theItem.Text) Then theForwardItems.Add(New NavigationHistoryItem(theItem.Text)) End If Next 'Now that we have created new Lists 'for the Back and Forward History Items, 'we use them through the InitializeHistory Method. 'Note how we are reusing the existing value of 'the NavigationToolbar's CurrentItem property. theNavToolbar.InitializeHistory(theBackItems.ToArray(), theForwardItems.ToArray(), theNavToolbar.CurrentItem) End Sub