PClient = New TcpClient
            PClient.Connect(IP, PPort)
            If PClient.Connected Then
                Dim c As New Connection
                c.stream = PClient.GetStream
                c.streamw = New StreamWriter(c.stream)
                c.streamr = New StreamReader(c.stream)
                c.Client = PClient
                Dim t As New Threading.Thread(AddressOf ListenToConnection)
                t.Start(c)

 Sub ListenToConnection(ByVal c As Connection)        
        Try          
                While True
                    FullMSG = c.streamr.ReadLine