B4J Question How to set process name with B4JPackager11? [SOLVED]

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    'MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
    MainForm.Show
 
    Wait For(SingleInstance("")) Complete (Singleton As Boolean)
    Log($"Is my app already running: "$ & Singleton)
 
End Sub

'Returns true if the provided package name is not found.
'PackageName: If empty, the function with use the current package name.
Sub SingleInstance(PackageName As String) As ResumableSub
    If PackageName = "" Then
        Dim joPKG As JavaObject
        joPKG.InitializeStatic("anywheresoftware.b4a.BA")
        PackageName = joPKG.GetField("packageName")
    End If
    Dim wmic As Shell
    wmic.InitializeDoNotHandleQuotes("wmic", "wmic.exe", Array As String("PROCESS"))
    wmic.Run(20000)
    Wait For wmic_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
    If Success Then
        Return Not(StdOut.ToLowerCase.Contains(PackageName.ToLowerCase))
    Else
        Return True
    End If
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    'MainForm.RootPane.LoadLayout("Layout1") 'Load the layout file.
    MainForm.Show

    Wait For(PackageCount("")) Complete (Count As Int)
    Log($"Count of my app running: "$ & Count)
    If Count > 1 then ExitApplication
   
End Sub

'Returns the number of packages found.
'PackageName: If empty, the function with use the current package name.
Sub PackageCount(PackageName As String) As ResumableSub
    Dim Count As Int = 0
    If PackageName = "" Then
        Dim joPKG As JavaObject
        joPKG.InitializeStatic("anywheresoftware.b4a.BA")
        PackageName = joPKG.GetField("packageName")
    End If
    Dim wmic As Shell
    wmic.InitializeDoNotHandleQuotes("wmic", "wmic.exe", Array As String("PROCESS"))
    wmic.Run(20000)
    Wait For wmic_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
    If Success Then
        Dim Match As Matcher  = Regex.Matcher2(PackageName, Regex.CASE_INSENSITIVE, StdOut)
        Do While Match.Find
            Count = Count + 1
        Loop
        Return Count
    Else
        Return 0
    End If   
End Sub

Private Sub BuildRunner As ResumableSub
    If Windows Then  
        Dim FileName As String = ExeName
        Dim target As String = "winexe"
        Dim output As String = ExeName
        File.WriteString(TempFolder, "runner.cs", $"
   
using System;
using System.Diagnostics;
using System.Text;
using System.Text.RegularExpressions;
using System.IO;
namespace B4JRunner
{
    class Program
    {
        static void Main(string[] args)
        {
            Process p = new Process();
            p.StartInfo.FileName = "${FileName}";
            p.StartInfo.WorkingDirectory = Path.Combine(System.AppDomain.CurrentDomain.BaseDirectory, "bin");
            p.StartInfo.Arguments = "@release_java_modules.txt -m ${TargetModule}/${PackageName}.main";
            foreach (string a in args)
                p.StartInfo.Arguments += " " + "\"" + Regex.Replace(a, @"(\\+)$", @"${"$1$1"}") + "\"";
            p.Start();
        }
    }
}"$)
        If IconFile = "" Then
            File.Copy(File.DirAssets, "icon.ico", TempFolder, "icon.ico")
        Else
            File.Copy(IconFile, "", TempFolder, "icon.ico")
        End If
        Wait For (RunShell(True, NetFrameworkCSC , Array($"/target:${target}"$, "/win32icon:icon.ico", $"/out:build\${output}"$, "runner.cs"))) complete (output As String)
        File.WriteString(TempFolder, "build\run_debug.bat", $"
    cd bin
java.exe @release_java_modules.txt -m ${TargetModule}/${PackageName}.main
pause
"$)
        File.Copy(File.Combine(TempFolder, "build/bin"), "javaw.exe", File.Combine(TempFolder, "build/bin"), ExeName)

    Else
        File.WriteString(TempFolder, "build/run.command", $"#!/bin/bash
cd -- "${"$"}(dirname -- "${"$"}BASH_SOURCE")"
cd bin
./java @release_java_modules.txt -m ${TargetModule}/${PackageName}.main
exit 0
 "$)
        Dim jo As JavaObject
        jo.InitializeNewInstance("java.io.File", Array As String(File.Combine(TempFolder, "build/run.command")))
        jo.RunMethod("setExecutable", Array As Object(True, False))      
    End If
    Return True
End Sub