Public Function ImageTo64String(ByVal Image As System.Drawing.Image) As String
Dim S As String = ""
If Not Image Is Nothing Then
Dim M As New
Image.Save(M, System.Drawing.Imaging.ImageFormat.Jpeg)
S = Convert.ToBase64String(M.ToArray)
M.Dispose()
End If
Return S
End Function
Public Function ImageFrom64String(ByVal [String] As String) As System.Drawing.Image
Dim IMG As System.Drawing.Image = Nothing
Dim BTS As Byte() = Convert.FromBase64String([String]), M As New (BTS)
IMG = System.Drawing.Bitmap.FromStream(M)
If Not M Is Nothing Then M.Dispose()
BTS = Nothing
Return IMG
End Function
