[vb2008.net] invio/ricezione file da socket

[killerbomb]

ho un problema con la ricezione di un file da socket
codice per l invio:

          Dim ep As IPEndPoint = New IPEndPoint(host, 8200)
        mysock = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
        mysock.Connect(ep)
        If mysock.Connected Then
            Dim fileTemp As New IO.FileInfo("text.txt")
            Dim fsTemp As IO.FileStream = fileTemp.OpenRead()

            Dim nBytes As Integer = fileTemp.Length
            Dim ByteArrayTemp(nBytes) As Byte
            Dim nBytesReadTemp As Integer = fsTemp.Read(ByteArrayTemp, 0, nBytes)
            'mysock.Send(ByteArrayTemp, nBytesReadTemp, SocketFlags.None)
            mysock.SendFile("text.txt")
            'mysock.Send(ByteArrayTemp)

        End If

codice ricezione:

sub xxx()
  Dim x As String = Dns.GetHostEntry(Dns.GetHostName).AddressList(0).ToString
        host = IPAddress.Parse(x.ToString())
        ep = New IPEndPoint(host, 8200)
        mySock = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
        listener = New TcpListener(ep)
        listener.Start()

        While True
            'Aspetto una connessione
            mySock = listener.AcceptSocket()
            'Quando arriva la connessione chiamo la funzione Elabora Messaggio passando il socket
            ElaboraMessaggio(mySock)
        End While
end sub

Sub ElaboraMessaggio(ByVal mysocket As Socket)

        If mysocket.Connected Then
            mysocket.Receive(buffer)' <----Risoluzione dell'overload non riuscita. Nessun 'elemento 'Receive' pubblico è specifico per questi argomenti:.....
        End If

    End Sub

come posso risolvere?