Private Sub SVG2Bitmap(contents As String) As ResumableSub
Dim wv As WebView
wv.Initialize("wv")
Root.AddView(wv, -2 * Root.Width, 0, Root.Width, Root.Height)
wv.LoadHtml(contents)
wait for wv_Ready
#if B4J 'Only difference between B4J and B4A in this snippet
Dim bm As B4XBitmap = wv.Snapshot
#else if B4A
Sleep(100)
Dim bm As B4XBitmap = wv.CaptureBitmap
#End If
Return bm
End Sub