Sub AddOwnBackButton
Page1.HideBackButton = True
backbut.InitializeText("< Back", "GoBack")
Page1.TopLeftButtons= Array(backbut)
End Sub
Sub Page1_BarButtonClick (Tag As String)
If Tag = "GoBack" Then
If bShowingStartPurchase = True Then
ReloadOriginalLayout
bShowingStartPurchase = False
Else
If KeyboardHeight > 0 Then
Page1.ResignFocus
Else
NavControl.RemoveCurrentPage
End If
End If
End If
End Sub