Dunque io uso il codice sotto riportato, (TcpListener), si collega, tutto ok, ma poi non so come andare avanti, anche spedire un semplice messaggio di testo al pc che si è collegato.

AscoltaTCP.Start()
LStato.Text = "STATO: IN ATTESA"
Timer2.Enabled = True

if AscoltaTCP.Pending
Timer2.Stop()
Voice.Speed = 150
Voice.Speak("YOUR CONNECT IS OK!")
AscoltaTCP.AcceptTcpClient()
AscoltaTCP.AcceptSocket()
LStato.Text = "CONNESSO!"

end if

Ho guardato in giro, ma non sono proprio esperto e guardando i codici non si capisce molto