Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
'load the layout to Root
Root.LoadLayout("frm_settings")
Dim no As NativeObject = B4XPages.GetNativeParent(B4XPages.GetPage("b4xp_settings"))
no.SetField("modalTransitionStyle",0)
Dim no2 As NativeObject = B4XPages.GetNativeParent(B4XPages.MainPage)
no2.RunMethod("presentModalViewController:animated:", Array(B4XPages.GetNativeParent(B4XPages.GetPage("b4xp_settings")), True))
End Sub