Sub Main()
        server = New TcpListener(ipendpoint)
        server.Start()
 
        While (True)
            Try
                client = server.AcceptTcpClient
                client.ReceiveBufferSize = 1024
                Dim ns As NetworkStream = client.GetStream
                Dim data(client.ReceiveBufferSize) As Byte
                datastring = ""
                '---read incoming stream; Read() is a blocking call---
                Dim numBytesRead As Integer = ns.Read(data, 0, _
                  client.ReceiveBufferSize)
                Dim z As Integer = 0
 
                client = server.AcceptTcpClient
                'Do something with your client.
 
                datastring = Encoding.ASCII.GetString(data, 0, numBytesRead)
                System.Diagnostics.Debug.WriteLine(Encoding.ASCII.GetString( _
                  data, 0, numBytesRead))
                SetTextBoxInfo(datastring)
 
                client.Close()
            Catch
            End Try
        End While
    End Sub