Public Sub Button(TargetID As String, ID As String, Text As String, ColorVariant As String, EventHandler As Object)
Dim btn As BANanoElement = BANano.GetElement(TargetID.ToLowerCase)
btn.RenderAppend($"<button id="${ID.ToLowerCase}" class="${ColorVariant}">${Text}</button>"$,"")
' defining events is very simple. Note that it has to be run AFTER adding it to the HTML DOM!
' eventName must be lowercase!
btn.HandleEvents("mousedown, touchstart", EventHandler, "buttonclicked")
End Sub