B4J Code Snippet Running JS expressions on the fly

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private WebView1 As WebView
    Private jo As JavaObject
    Private joEngine As JavaObject
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1                    'For this demonstration we don't need to see the form, but because of webview this is an UI app
    MainForm.SetFormStyle("UNIFIED")
    WebView1.Initialize("")
    MainForm.RootPane.AddNode(WebView1, .4*MainForm.WindowWidth, .4*MainForm.WindowHeight, .6*MainForm.WindowWidth, .6*MainForm.WindowHeight)
    jo = WebView1
    joEngine = jo.RunMethodJO("getEngine", Null)
 
    Dim expressions() As String = Array As String ( _
            $""\"extra quoted\"""$, _
            "'xxx' + 'yy'", _
            "'13 Mod 7 is ' + 13 % 7", _
            "true == false", _
            "'Pi is ' + Math.PI", _
            "'The\nEnd'" _
            )
        
    Dim theResult As String
    For j = 0 To 5
        theResult = runScript(expressions(j))
        Log(theResult & CRLF & "_____")
    Next

    ExitApplication
End Sub

Sub runScript(s As String) As String
    Return joEngine.RunMethod("executeScript", Array As String(s))
End Sub