iOS Question TabStrip and LoadLayout in iPhone-X

Sub Process_Globals
    Private pnlRoot As Panel
    Private ToolBar1 As clsToolBar

    Private TabStrip1 As TabStrip
    Private csb As CSBuilder
    Private page1, page2, page3 As Page
    Private TabPages As List
End Sub

Public Sub Show
    If Not(Main.pOnlineStatistik.IsInitialized) Then
        Main.pOnlineStatistik.Initialize("pOnlineStatistik")
    End If
    Main.pOnlineStatistik.RootPanel.LoadLayout("Main")
    Main.pOnlineStatistik.RootPanel.Color = Colors.White
    pnlRoot.LoadLayout("frmOnlineStatistik")
    Main.NavControl.ShowPage(Main.pOnlineStatistik)

    ToolBar1.Clear
    ToolBar1.UpIndicator = ToolBar1.Indicator_Back
    ToolBar1.Titel = Starter.Language.value("strGamePoint") & ": Online"

    TabPages.Initialize
    
    page1.Initialize("page1")
    page1.RootPanel.LoadLayout("frmStatistikLevel1")
    UpdateStatistikViews(1)
    SetAttributedTitle(page1, csb.Initialize.Color(0xFFFFFFFF).Font(Font.CreateNew(14)).Append(Starter.Language.value("strMit4Karten")).PopAll)
    TabPages.Add(page1)

    page2.Initialize("page2")
    page2.RootPanel.LoadLayout("frmStatistikLevel2")
    UpdateStatistikViews(2)
    SetAttributedTitle(page2, csb.Initialize.Color(0xFFFFFFFF).Font(Font.CreateNew(14)).Append(Starter.Language.value("strMit4KartenTime")).PopAll)
    TabPages.Add(page2)

    page3.Initialize("page3")
    page3.RootPanel.LoadLayout("frmStatistikLevel3")
    UpdateStatistikViews(3)
    SetAttributedTitle(page3, csb.Initialize.Color(0xFFFFFFFF).Font(Font.CreateNew(14)).Append(Starter.Language.value("strMit7Karten")).PopAll)
    TabPages.Add(page3)

    TabStrip1.SetPages(TabPages)

End Sub

Private Sub pOnlineStatistik_Resize (Width As Float, Height As Float)
    Dim r As Rect = Main.pOnlineStatistik.SafeAreaInsets
    pnlRoot.SetLayoutAnimated(0, 1, r.Left, r.Top, Width - r.Right - r.Left, Height - r.Bottom - r.Top)
End Sub

Private Sub pnlRoot_Resize (Width As Float, Height As Float)
...
End Sub