iOS Question barbuttonclick does't work

[andredamen]

I have made a right barbutton. I can see it on my Ipad Air. When I click on it, I see on the Ipad that I click, but there is no response. Not in the log or in the reaction of the appication.

How can I solve this?

Code:

Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Page1.Initialize("main")
Page1.RootPanel.LoadLayout("opstartscherm")
NavControl.ShowPage(Page1)
imaDriesprong.Visible=True
imaHGL.Visible=True
Achtergrond.Visible=True
wbvWebInfo.Visible=False

Dim b1 As BarButton
b1.InitializeText("Terug", "Button1")
Page1.ToprightButtons = Array(b1)

End Sub

Sub Page1_BarButtonClick (Tag As String)
Log("BarButtonClicked: " & Tag)
wbvWebInfo.Visible=False
End Sub

 

[andredamen]

I have solved it myself.

 

[Yvon Steinthal]

How did you solve it?