Visual Basic - Enviar archivos con WinSock

Hola... me gustaría saber como puedo enviar archivos con el control WinSock, en pocas palabras... quiero abrir cualquier archivo, recorrerlo y enviar paquetes al puerto para que el ordenador remoto lo reconstruya.
Se me había ocurrido abrirlos como binarios pero no parece funcionar.
Agradeceré cualquier ayuda.

Yo tambien tengo el mismo problema y pense lo mismo pero tampoco lo consigo, haber si alguien nos hecha una mano.

Amador: probando y probando logré dar con la forma de 'desarmar' un archivo para luego mandarlo por WinSock...

Private Sub Command1_Click()
Dim i&
Dim Caracter As String * 1

Open "C:\Laguna.jpg" For Binary Access Read As #1
Open "C:\Prueba.jpg" For Binary Access Write As #2

Do While Not EOF(1)
i = i + 1
Get #1, i, Caracter
Put #2, i, Caracter
Loop
Close
End Sub
Esto lo que hace es leer byte x byte el archivo Laguna.jpg y pegarlo en un archivo prueba.jpg. Al final del bucle lo que queda son dos archivos "iguales".
Mi error era dimensionar la variable caracter como string de longitud variable (sin el *1) lo cual hacía que el bucle no terminara nunca.
De acá en más cada uno ve como pasarle los datos al WinSock y cómo recuperarlos en la máquina destino aunque me han recomendado armar paquetes de 2048 bytes empezando y finalizando con cierto caracter especial (p.e. chr(1)) y enviarlos con una demora de 1 segundo entre uno y otro (con un timer) para que lleguen correctamente.
Espero que te sea útil

Gracias de algo me ha servido xD