Sub ReplaceBarButtonText(Tag As String, NewText As String)
Dim buttons As List = Page1.TopRightButtons
For i = 0 To buttons.Size - 1
Dim bb As BarButton = buttons.Get(i)
If bb.Tag = Tag Then
Dim newButton As BarButton
newButton.InitializeText(NewText, Tag)
buttons.Set(i, newButton)
Exit
End If
Next
Page1.TopRightButtons = buttons
End Sub