PublicSharedFunction Object2Image()Function Object2Image(ByVal o AsObject) As Image Dim image1 As Image Try Dim buffer1 AsByte() =DirectCast(o, Byte()) Dim mr AsNew MemoryStream(buffer1) image1 = Image.FromStream(mr) mr.Close() Catch obj1 As Exception ReturnNothing EndTry Return image1 End Function