Public Function Image2String(ByVal img As Image) As String
If img Is Nothing Then
Return ""
Exit Function
End If
Dim ms As New MemoryStream
Ctronl.Image.Save(ms, img.RawFormat)
Dim imgByte() As Byte = ms.GetBuffer()
ms.Close()
Return Convert.ToBase64String(imgByte)
End Function
Dim strImg As String
strImg = Image2String(PictureBox1.Image)