Text1.Selstar=Len(Text1.Text)

TextBox1.SelectionStart = Len(TextBox1.Text)

Dim TCPListen As New TcpListener(IPAddress.Any, 11000)
        TCPListen.Start()

        While Not TCPListen.Pending()
            Thread.Sleep(5000)
        End While

        Dim TCP As TcpClient = TCPListen.AcceptTcpClient()
        Dim NetStream As NetworkStream = TCP.GetStream()


        Dim i As Int32
        Dim bytes(1024) As Byte
        Dim data As String = ""

        i = NetStream.Read(bytes, 0, bytes.Length)
        While (i <> 0)
            data = System.Text.Encoding.ASCII.GetString(bytes, 0, i)
            i = NetStream.Read(bytes, 0, bytes.Length)
        End While

        MsgBox(data)
        NetStream.Close()
        TCP.Close()