Dim memStream As New IO.MemoryStream()
Dim myBinarySerializer As New Formatters.Binary.BinaryFormatter()
myBinarySerializer.Serialize(memStream, Zeichnung.DrawObjects)
Dim tempStr As String = vbnullstring
tempStr = Convert.ToBase64String(memStream.ToArray())
memStream.Close()

Dim bData() As Byte = Convert.FromBase64String(tempStr)
Dim memStream As New IO.MemoryStream(bData)
Dim myBinarySerializer As New Formatters.Binary.BinaryFormatter()
memStream.Position = 0
my_DrawObjects = myBinarySerializer.Deserialize(memStream)