iOS Question Application start up problem

Main.App.As(NativeObject).RunMethod("ignoreSnapshotOnNextApplicationLaunch", Null)

'******************************************************
'APPLICATION START
'******************************************************
Private Sub Application_Start (Nav As NavigationController)
    NavControl = Nav
    Pagemain.Initialize("main")
    Pagemain.RootPanel.LoadLayout("main")
    NavControl.NavigationBarVisible = False
    NavControl.ShowPage(Pagemain)
    AllFunc.Initialize
    AllFunc.ReadAllInitoMemory(MemLoc)
    InitApp
    InitWebview
End Sub
'******************************************************
'INIT APP BASIC
'******************************************************
Sub InitApp()
    IntScreenWidth=GetDeviceLayoutValues.Width/GetDeviceLayoutValues.Scale
    IntScreenHeight=GetDeviceLayoutValues.Height/GetDeviceLayoutValues.Scale
    cam.Initialize("cam", Pagemain)
End Sub
'******************************************************
'INIT WEB BROWSER
'******************************************************
Sub InitWebview()
    FullScreen
    Exec_Webview_Navlocal("Splash.html")
    WKWebView.BaseView.Visible=True
End Sub

'******************************************************
'APPLICATION START
'******************************************************
Private Sub Application_Start (Nav As NavigationController)
    NavControl = Nav
    Pagemain.Initialize("main")
    Pagemain.RootPanel.LoadLayout("main")
    NavControl.NavigationBarVisible = False
    NavControl.ShowPage(Pagemain)
    AllFunc.Initialize
    AllFunc.ReadAllInitoMemory(MemLoc)
    InitApp
    InitWebview
End Sub
'******************************************************
'INIT APP BASIC
'******************************************************
Sub InitApp()
    IntScreenWidth=GetDeviceLayoutValues.Width/GetDeviceLayoutValues.Scale
    IntScreenHeight=GetDeviceLayoutValues.Height/GetDeviceLayoutValues.Scale
    cam.Initialize("cam", Pagemain)
End Sub
'******************************************************
'INIT WEB BROWSER
'******************************************************
Sub InitWebview()
    FullScreen
    Exec_Webview_Navlocal("Splash.html")
    WKWebView.BaseView.Visible=True
End Sub
'******************************************************
'EXECUTE FULL SCREEN
'******************************************************
Sub FullScreen()
    Dim no As NativeObject = App
    no.RunMethod("setStatusBarHidden:animated:", Array(True, False))
    no.RunMethod("ignoreSnapshotOnNextApplicationLaunch", Null)   <<<<<<---------------------------- Added this
End Sub

Private Sub Application_Start (Nav As NavigationController)
    NavControl = Nav
    Pagemain.Initialize("main")
    Pagemain.RootPanel.LoadLayout("main")
    NavControl.NavigationBarVisible = False
    NavControl.ShowPage(Pagemain)
    Sleep(100)
    AllFunc.Initialize
    AllFunc.ReadAllInitoMemory(MemLoc)
    InitApp
    InitWebview
End Sub