Can be use with B4JServer, Web API Server and Non-UI app (does not depend on XUI or jFX)
Dim img As String = File.Combine(Main.AssetFolder, "img")
Dim generate As ZXing
generate.Initialize
generate.QrCode(value, 400, File.Combine(img, "image.png"), "png")