Sub GetBitmapFromByteArray(picBuffer() As Byte ) As Bitmap
Try
Dim InputStream1 As InputStream, Bitmap1 As Bitmap
InputStream1.InitializeFromBytesArray(picBuffer, 0, picBuffer.Length)
Bitmap1.Initialize2(InputStream1)
InputStream1.Close
Return Bitmap1
Catch
Return Null
End Try
End Sub