Not reciving text.

Hi, i started a to code a program so you can talk with other people (In LAN). Now i got a problem. Here is the program. https://gyazo.com/ce4e893a600a60cf20d351bcbbdad418
You see the left textbox (textbox4.text) that the message comes in there but when my friend downloaded the program then he could not see the text in the left textbox. Not even his own message that he had sent.

HTML Code:

---

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Try
            If listner.Pending = True Then
                message = ""
                client = listner.AcceptTcpClient()
                Dim reader As New StreamReader(client.GetStream())
                While reader.Peek > -1
                    message = message + Convert.ToChar(reader.Read()).ToString

                End While
                Me.Focus()
                TextBox2.Text = (TextBox2.Text + message + vbCrLf)
                tts = CreateObject("sapi.spvoice")


                If message.Contains(TextBox3.Text) Then

                Else

                    tts.speak(message)


                End If


            End If
        Catch ex As Exception
            MsgBox(ex.Message)

        End Try
    End Sub

---

The code doesn't mention a Textbox4, yet that seems to be where the problem lies by your description.