[code]Dim objSvg, objElement
Set objSvg = ScreenItems("SvgLibraryName").SvgDocument
Set objElement = objSvg.GetElementById("lightId")
If objElement.Custom("toggled") = "true" Then
objElement.Custom("toggled") = "false"
Else
objElement.Custom("toggled") = "true"
End If[/code]
Dim objElement
Set objElement = ScreenItems("SvgLibraryName").SvgDocument.GetElementById("ElementId")
objElement.Custom("AttributeName") = "AttributeValue"