Visual Basic - enviar con winsock

Buenas:
Tengo un problema tengo el codigo indicado abajo para recibir imagenes mediante winsock pero no se por que no se me muestra el archivo.
ame podrias ayudar??
abajo indico como lo envio la imagen y como la recibo.

para enviar:
Sub SendFile(strFile As String, sock As Csocket)
On Error Resume Next
Dim fileContent As String
fileContent = Space(FileLen(strFile))
Open strFile For Binary Access Read As #1
Get #1, , fileContent
Close #1
sock.SendData fileContent
End Sub

para recibir:
On Error Resume Next
Dim ruta_binary As String
ruta_binary = App.Path + "/temp/cam.bmp"
Dim img() As Byte
Winsock.GetData img, 1
Open ruta_binary For Binary Access Write As #1
Put #1, , img
Close #1
Picture2.Picture = LoadPicture(ruta_binary)