Sub AppStart (Form1 As Form, Args() As String)
    
    MainForm = Form1
    MainForm.Resizable = False
    MainForm.Show
    
    Dim PagesManager As B4XPagesManager
    PagesManager.Initialize(MainForm)
    
    If File.IsDirectory(GetSystemProperty("user.home", "") & pathDesktop,pathfolderdesktop) = False Then
        File.MakeDir(GetSystemProperty("user.home", "") & pathDesktop,pathfolderdesktop)
        File.MakeDir(GetSystemProperty("user.home", "") & pathDesktop,pathfolderdesktop & "/LONG")
        File.MakeDir(GetSystemProperty("user.home", "") & pathDesktop,pathfolderdesktop & "/SHORT")
        File.MakeDir(GetSystemProperty("user.home", "") & pathDesktop,pathfolderdesktop & "/SETTING")
        File.MakeDir(GetSystemProperty("user.home", "") & pathDesktop,pathfolderdesktop & "/LIST")
        pathDesktop = GetSystemProperty("user.home", "") & pathDesktop & "/" & pathfolderdesktop
    Else
        pathDesktop = GetSystemProperty("user.home", "") & pathDesktop & "/" & pathfolderdesktop
    End If
    
    
    HttpUtils2Service.Service_Create
    HttpUtils2Service.TempFolder = GetSystemProperty("user.home", "") & pathDesktop & "/SETTING/"
    
End Sub