Public Client As TcpClient
Public DataStream As StreamWriter

Public Sub Send(Data As String)
        DataStream.Write(Data & vbCrLf)
        DataStream.Flush()
End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        If Client.Client.Connected = True Then
            Client.Send("2")
        End If
End Sub

Private Server As TCPControl

Public Event MessageReceived(sender As TCPControl, Data As String)


    ' COMUNICA CON EL FORM
    Private Delegate Sub UpdateTextDelegate(TB As TextBox, txt As String)
    ' ACTUALIZA EL TEXTO
    Private Sub UpdateText(TB As TextBox, txt As String)
        If TB.InvokeRequired Then
            TB.Invoke(New UpdateTextDelegate(AddressOf UpdateText), New Object() {TB, txt})
        Else
            TB.Text = txt
        End If
    End Sub

    ' ACTUALIZA TEXTO CUANDO RECIBE
    Private Sub OnLineReceived(sender As TCPControl, Data As String)
        UpdateText(txtChat, Data)
    End Sub

    Private Sub Listening()
        ' LOOP QUE ESCUCHA
        Do Until IsListening = False
            ' ACEPTA CONEXIONES
            If Server.Pending = True Then
                Client = Server.AcceptTcpClient
                ClientData = New StreamReader(Client.GetStream)

            End If

            ' CUANDO LLEGA UN MENSAGE
            Try
                RaiseEvent MessageReceived(Me, ClientData.ReadLine)
            Catch ex As Exception
            End Try
        Loop
    End Sub