Sub AppStart (Args() As String)
    'redirect StdOut e StdErr to file
    RedirectOutput(File.DirApp, "myappfile.txt")
    DBstuff.InitDBStuff
    srvr.Initialize("srvr")
   ..
    srvr.StaticFilesFolder = File.Combine(File.DirApp, "www")
    srvr.AddHandler("/hello", "hHello", False)      
    srvr.Start
    StartMessageLoop
End Sub
Sub RedirectOutput (Dir As String, FileName As String)
   #if RELEASE
    Dim out As OutputStream = File.OpenOutput(Dir, FileName, False) 'Set to True to append the logs
    Dim ps As JavaObject
    ps.InitializeNewInstance("java.io.PrintStream", Array(out, True, "utf8"))
    Dim jo As JavaObject
    jo.InitializeStatic("java.lang.System")
    jo.RunMethod("setOut", Array(ps))
    jo.RunMethod("setErr", Array(ps))
   #end if
End Sub