Dim canvas1 As BANanoElement = body.Append($"<canvas id="mycanvas"><canvas>"$).Get("#mycanvas")
canvas1.SetAttr("width","600")
canvas1.SetAttr("height","400")
canvas1.SetText("Your browser does not support the HTML 5 Canvas.")
canvas1.SetStyle(BANano.ToJson(CreateMap("border":"1px solid black")))