Ho risolto il problema della risposta.
Adesso mi dà un errore diverso:
"Indirizzo richiesto non valido nel proprio contesto" su Listener.Listen()
Riporto il codice per accettare la connessione, che si attiva al tick del timer.
codice:
Public Sub Accetta()        
    Listener = New TcpListener(New IPAddress("127.0.0.1"), 25)     
    Listener.Start()       
    If Listener.Pending Then    
         Client = Listener.AcceptTcpClient        
    End If    
End Sub
Qualcuno sa dirmi come risolvere??
Grazie.