Visual Basic - Winsock + imagen

Hola foro, nuevamente llego con otra duda de winsock, como puedo transferir una imagen por winsock?al parecer tengo que manejara variables tipo byte, o matrices alguien me podria hechar la mano?

Aqui hay un codigo que hace eso

http://www.codigoplus.com/index.php?accion=codigos&busqueda=enviar&categoria=1

Con esto envias cualquier tipo de archivo
cuando ya conectaste el cliente con el servidor

Public Sub Enviar_datos()
Dim Buf As String * 1024
Open "c:\imagen.jpg" For Binary As #1
Do While Not EOF(1)
Get #1, , Buf
TCP.SendData Buf
Loop
Close #1

End Sub

En el servidor

Private Sub TCP_DataArrival(ByVal bytesTotal As Long)

Dim Texto As String
TCP.GetData Texto
Open "c:\imagen.jpg" For Binary As #1
Seek (1), LOF(1) + 1
Put #1, , Texto
Close #1

End Sub