Sto cercando di fare un prg che controlli se ho posta (come telnet, solo che il server e la porta li decido a priori) e la connessione va a buon fine (ricevo la stringa +OK POP3 PROXY server ready (7.0.019)
), ma quando invio "USER utente" non ricevo risposta. Il codice è questo:

Dim testo As String

Private Sub connetti_Click()
tcpClient.Connect
End Sub

Private Sub Form_Load()
tcpClient.RemoteHost = "mail.tin.it"
tcpClient.RemotePort = 110
End Sub

Private Sub ok_Click()
tcpClient.SendData (Chr(13))
End Sub

Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long)
tcpClient.GetData testo
Text1.Text = testo
End Sub

Private Sub Text2_Change()
tcpClient.SendData (Text2.Text)
End Sub

Il pulsante ok serve per inviare il tasto invio. Dove è l'errore?

Grazie 1000 a tutti ^_^

Scusate, ho corretto il codice, ma non funziona neanche ora. La correzione è:

Private Sub Text2_Change()
tcpClient.SendData (Text2.Text)
Text2.Text = ""
End Sub


Grazie a chi vorrà rispondere.