Sockets en VB.Net

Hop ! je repose ma question dans le forum le plus lu :)

j'ai fait un p'tit prog en VB .Net afin que celui-ci puisse servir à la fois de serveur et de client (ca dépend des boutons sur lesquels on appuye).

Le problème c'est que tout marche bien sauf l'envoi de données.

J'utilise la méthode asynchrone :
SocketClient.BeginSend(Message, 0, Message.Length, Sockets.SocketFlags.None, AddressOf Send_Callback, SocketClient)

Puis :
    Private Sub Send_Callback(ByVal iar As System.IAsyncResult)
        Dim read As Integer
        Dim s = CType(iar.AsyncState, Socket)
        Try
            read = s.EndSend(iar)
            TextBox2.Text = TextBox2.Text & vbCrLf & read & " octets envoyés"
            SocketClient.BeginReceive(Result, 0, Result.Length, SocketFlags.None, AddressOf Receive_Callback, SocketClient)
        Catch ex As SocketException
            MsgBox(ex.ErrorCode & " : " & ex.Message)
        End Try
    End Sub


Vous auriez une idée ? ^^

Mindiell Software