Sub SetVariable(el As BANanoElement, var As String, value As Object)
el.GetField("style").RunMethod("setProperty", Array(var, value))
End Sub
Sub GetVariable(el As BANanoElement, var As String) As Object
Dim computed As BANanoObject
computed.Initialize4("getComputedStyle", el.ToObject) ' note that computed is read-only!
Return computed.RunMethod("getPropertyValue", var)
End Sub
Sub RemoveVariable(el As BANanoElement, var As String)
el.GetField("style").RunMethod("removeProperty", var)
End Sub