iOS Question Do not load 100%x and 100y in Page

Sub Process_Globals
    Private pg As Page  
End Sub

Sub Show
    Try
       
        If pg.IsInitialized = False Then
            pg.Initialize("pg" )
            pg.Title = "Tmovemos Colombia"              
           
        End If
        pg.RootPanel.Color=Colors.White
        Main.NavControl.ShowPage(pg)      
   
    Catch
        Msgbox(LastException,"Error")
    End Try
End Sub

Private Sub pg_Resize(Width As Int, Height As Int)
    setup_page(Width,Height)
End Sub

Sub setup_page (w As Int , h As Int)
    SvPanel.Initialize("",w,h)
    pg.RootPanel.AddView(SvPanel,0,0,w,h)
    SvPanel.Panel.LoadLayout("layout")      

End Sub

Private Sub pgsact_Resize(Width As Int, height1 As Int)
    Mw =pg.RootPanel.Width
    Mh=pg.RootPanel.Height
End Sub

Sub Setup_layaut_sv

    Pnlsv.SetLayoutAnimated(  10, 1, 0, 50dip, Mw,Mh-50dip)
   
    Svserv.Width=Mw
    Svserv.Height=Mh-50dip
    Svserv.SetLayoutAnimated( 10, 1,0,0, Mw,Mh-50dip)
    'Msgbox("w " & Svserv.Width & " w2 " & Mw & " mh= "& Mh,"")
    Pnlsv.BringToFront
    Pnlsv.Visible=True
    PnlMap.Visible= False
    pg.ResignFocus
    Sleep(500)
End Sub