Winsock1 en VB envía imágenes, se produce un error durante la restauración

Aquí tienes un ejemplo. Mira si te inspira. ¿Privado?¿Declarar?Función?CopyMemory?Lib?"kernel32"?Alias?"RtlMoveMemory"?(¿Destino?Como?Cualquiera,?Fuente?Como?Cualquiera,?ByVal?Longitud?Como?Long)?Como?Booleano

Dim?bytData()?As?Byte

Privado?Sub?Command1_Click()

Winsock1.RemoteHost?=?Text1.Text

Dim?arr()?As?Byte

Dim?i?As?New?PropertyBag

i.WriteProperty?"image",?Picture1.Picture

ReDim?arr(1?To?LenB(i.Contents))

arr?=?i.Contents

If?UBound(arr)?lt;=?8192? ¿Entonces?'Si el archivo a enviar es más pequeño que el tamaño del bloque de datos, envíalo directamente

Winsock1.SendData?arr?'Envía los datos

Salir?Sub

¿Fin? Si

Fin?Sub

Privado?Sub?Form_Load()

Con?Winsock1'Envío y recepción de información

.Protocol? =?sckUDPProtocol?'Usar protocolo UDP

.RemotePort?=?9001?'El puerto al que conectarse

.LocalPort?=?9001

.¿Enlazar? 'Enlazar al puerto local

¿Fin?Con

Fin?Sub

¿Privado?Sub?Form_Unload(¿Cancelar?Como? Entero)

Borrar?bytData

Fin?Sub

Privado?Sub?Winsock1_DataArrival(ByVal?bytesTotal?As?Long)

Dim?arr() ?As?Byte

ReDim?arr(1?To?bytesTotal)

Winsock1.GetData?arr

ReDim?Preserve?bytData (1?A?bytesTotal)

CopyMemory?bytData(1),?arr(0),?bytesTotal

Dim?i?As?New?PropertyBag

i.Contents ?=?bytData

Imagen2.Picture?=?i.ReadProperty("imagen")

End?Sub