' MiniHTML Helper (Add to MH.bas)
Public Sub CreateTag (Name As String) As MiniHtml
	Dim tag1 As MiniHtml
	tag1.Initialize(Name)
	Return tag1
End Sub

Public Sub ConvertFromBytes (Buffer() As Byte) As MiniHtml
	Dim tag1 As MiniHtml
	tag1.Initialize("")
	Dim s As String = BytesToString(Buffer, 0, Buffer.Length, "UTF-8")
	Return tag1.Parse(s)
End Sub

Public Sub ConvertToBytes As Byte()
	Dim tag1 As MiniHtml
	tag1.Initialize("")
	Dim s As String = tag1.build
	Return s.GetBytes("UTF8")
End Sub

Public Sub Anchor As MiniHtml
	Return CreateTag("a")
End Sub

Public Sub Button As MiniHtml
	Return CreateTag("button")
End Sub

Public Sub Div As MiniHtml
	Return CreateTag("div")
End Sub

Public Sub Span As MiniHtml
	Return CreateTag("span")
End Sub

Public Sub Strong As MiniHtml
	Return CreateTag("strong")
End Sub

Public Sub Br As MiniHtml
	Return CreateTag("br")
End Sub

Public Sub Nav As MiniHtml
	Return CreateTag("nav")
End Sub

Public Sub Form As MiniHtml
	Return CreateTag("form")
End Sub

Public Sub H1 As MiniHtml
	Return CreateTag("h1")
End Sub

Public Sub H2 As MiniHtml
	Return CreateTag("h2")
End Sub

Public Sub H3 As MiniHtml
	Return CreateTag("h3")
End Sub

Public Sub H5 As MiniHtml
	Return CreateTag("h5")
End Sub

Public Sub H6 As MiniHtml
	Return CreateTag("h6")
End Sub

Public Sub P As MiniHtml
	Return CreateTag("p")
End Sub

Public Sub Html As MiniHtml
	Return CreateTag("html").lang("en")
End Sub

Public Sub Head As MiniHtml
	Return CreateTag("head")
End Sub

Public Sub Title As MiniHtml
	Return CreateTag("title")
End Sub

Public Sub Script As MiniHtml
	Return CreateTag("script")
End Sub

Public Sub Style As MiniHtml
	Return CreateTag("style")
End Sub

Public Sub Meta As MiniHtml
	Return CreateTag("meta")
End Sub

Public Sub Link As MiniHtml
	Return CreateTag("link")
End Sub

Public Sub Body As MiniHtml
	Return CreateTag("body")
End Sub

Public Sub Icon As MiniHtml
	Return CreateTag("i")
End Sub

Public Sub Img As MiniHtml
	Return CreateTag("img")
End Sub

Public Sub Svg As MiniHtml
	Return CreateTag("svg")
End Sub

Public Sub Path As MiniHtml
	Return CreateTag("path")
End Sub

Public Sub Input As MiniHtml
	Return CreateTag("input")
End Sub

Public Sub Label As MiniHtml
	Return CreateTag("label")
End Sub

Public Sub Caption As MiniHtml
	Return CreateTag("caption")
End Sub

Public Sub Footer As MiniHtml
	Return CreateTag("footer")
End Sub

Public Sub Table As MiniHtml
	Return CreateTag("table")
End Sub

Public Sub Tbody As MiniHtml
	Return CreateTag("tbody")
End Sub

Public Sub Td As MiniHtml
	Return CreateTag("td")
End Sub

Public Sub Th As MiniHtml
	Return CreateTag("th")
End Sub

Public Sub Thead As MiniHtml
	Return CreateTag("thead")
End Sub

Public Sub Tr As MiniHtml
	Return CreateTag("tr")
End Sub

Public Sub Ul As MiniHtml
	Return CreateTag("ul")
End Sub

Public Sub Li As MiniHtml
	Return CreateTag("li")
End Sub

Public Sub SelectTag As MiniHtml
	Return CreateTag("select")
End Sub

Public Sub Option As MiniHtml
	Return CreateTag("option")
End Sub

Public Sub Textarea As MiniHtml
	Return CreateTag("textarea")
End Sub