Public Sub ImageToBytes(Image As Bitmap) As Byte()
If is_imageextension = "png" Then
Dim ls_imageformat As String = "PNG"
Else IF is_imageextension = "jpg" Or is_imageextension = "jpeg" Then
Dim ls_imageformat As String = "JPEG"
End If
Dim out As OutputStream
out.InitializeToBytesArray(0)
Image.WriteToStream(out, 100, ls_imageformat)
out.Close
Return out.ToBytesArray
End Sub