<Serializable()> Public Structure structTest
   Implements ICloneable
 
   Dim a As Integer
   Dim b As Integer
   Dim c As Integer
   Dim o As SubData
 
   Public Function Clone() As Object Implements System.ICloneable.Clone
        Dim CloneObject As Object
        ' Create a memory stream and a formatter.
        Dim ms As New IO.MemoryStream(1000)
        Dim bf As New Runtime.Serialization.Formatters.Binary.BinaryFormatter()
        ' Serialize the object into the stream.
        bf.Serialize(ms, Me)
        ' Position streem pointer back to first byte.
        ms.Seek(0, IO.SeekOrigin.Begin)
        ' Deserialize into another object.
        CloneObject = bf.Deserialize(ms)
        ' Release memory.
        ms.Close()
 
        Return CloneObject
   End Function
End Structure