OBJECT对象序列化转换为byte[] byte[]反序列化转换为OBJECT对象

  '参考：http://blog.csdn.net/freehul/archive/2005/01/19/258787.aspx
    '将Image对象和byte[]互相转换 

    Private Sub Button1_Click()Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim img As Image = PictureBox1.Image
        Dim img2 As Image = CType(GetObject(ReadObject(img)), Image)
        PictureBox2.Image = img2
    End Sub

    Public Shared Function ReadObject()Function ReadObject(ByVal obj As Object) As Byte()
        Dim ms As MemoryStream = New MemoryStream
        Dim bf As BinaryFormatter = New BinaryFormatter
        bf.Serialize(ms, obj)
        ms.Close()
        Return ms.ToArray()
    End Function

    Public Shared Function GetObject()Function GetObject(ByVal bytes As Byte()) As Object
        Dim ms As MemoryStream = New MemoryStream(bytes, 0, bytes.Length)
        Dim bf As BinaryFormatter = New BinaryFormatter
        Return bf.Deserialize(ms)

    End Function