Sub CreateSVGFromString (s As String) As SVG
Dim no As NativeObject
Dim source As NativeObject
source = source.Initialize("SVGKSourceNSData").RunMethod("sourceFromData:URLForRelativeLinks:", Array(source.ArrayToNSData(s.GetBytes("UTF8")), Null))
Return no.Initialize("SVGKImage").RunMethod("imageWithSource:", Array(source))
End Sub