Hi Filippo,
Here is a small program that does not work:
'Code module
#Region Project Attributes
#ApplicationLabel: crm
#Version: 1.0.0
'Orientation possible values: Portrait, LandscapeLeft, LandscapeRight and PortraitUpsideDown
#iPhoneOrientations: Portrait
#iPadOrientations: LandscapeLeft
#End Region
Sub Process_Globals
Private NavControl As NavigationController
Private Page2 As Page
End Sub
Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
NavControl.NavigationBarVisible = True
'NavControl.ToolBarVisible = True
Page2.Initialize("Page2")
Page2.RootPanel.LoadLayout("fichaEmpresa1")
Page2.Title = "Empresa"
' Dim b1, b2 As BarButton
' b1.InitializeText("Cancelar", "cancelar")
' b2.InitializeText("Grabar", "grabar")
' Page2.TopLeftButtons = Array(b1)
' Page2.TopRightButtons = Array(b2)
NavControl.ShowPage(Page2)
End Sub
Private Sub Application_Active
End Sub
Private Sub Application_Inactive
End Sub
Private Sub Application_Background
End Sub
Sub Page2_KeyboardStateChanged(Height As Float)
Log("Current keyboard height: " & Height)
End Sub