Problema para leer un objeto serializado!

[mariano_donati]

Hola, estoy haciendo una prueba sencilla para ver si puedo mandar un objeto serializado a través de un socket. Esto es lo que hago:

PrivateFunction GetSerializedBytes(ByVal E As EventSender) AsByte()

Dim Formatter AsNew BinaryFormatter()

Dim S AsNew MemoryStream()

Formatter.Serialize(S, E)

Dim BinaryReader AsNew BinaryReader(S)

Return BinaryReader.ReadBytes(S.Length)

EndFunction


La cuestión es que la longitud de la matriz de bytes que me devuelve esta función siempre es 0, es decir, como que no leyera ningún byte. En donde puede estar el error?