Sub ImageUri(uri As String) As Bitmap
Dim s As String
Dim n As Int
n = uri.IndexOf(",")
If n < 0 Then
s = uri
Else
s = uri.SubString(n+1)
End If
Dim su As StringUtils
Dim bytes() As Byte = su.DecodeBase64(s)
Dim In As InputStream
In.InitializeFromBytesArray(bytes, 0, bytes.Length)
Dim bmp As Bitmap
bmp.Initialize2(In)
In.Close
Return bmp
End Sub