et bah avec moi ca marchait pas ...
Regarde j'ai fait ca :
 
 
        Dim fs = New FileStream(FILE_NAME, FileMode.Open, FileAccess.Read)
 
        Dim r As New BinaryReader(fs)
 
        r.Read()
 
        Dim bufferRead() As Byte
 
        bufferRead = r.ReadBytes(CType(fs.Length, Integer))
 
Maintenant bufferRead combien les  données de limage sous forme de bytes mais comment l'envoyer dans la socket??? car l'argument pour envoyer est un truc en STRING :
 
Voici ma fonction Socket.send :
 
Public Sub Send(ByVal Data As [String])
        buffer = Encoding.UTF8.GetBytes(Data)
        sckclient.BeginSend(buffer, 0, buffer.Length, SocketFlags.None, AddressOf SendCallback, sckserver)
    End Sub
 
Merci