aggiornamento mail winsock e pop3

Polifemo 27/04/2011 Difficoltà: Medio

Sto realizzando un programma che deve monitorare ogni 10 secondi se sono arrivate nuove mail.
per questo uso il protocollo pop3 con winsock.

dopo la connessione (user login etc)

parte un timer che controlla e visualizza l' ultima mail ogni tot secondi:

Private Sub Timer1_Timer()
'------------------------------------------------
'richiede il numero dei messaggi e la dimensione
'------------------------------------------------
sendMsg "STAT"
x = InStr(Message$, " "): b = InStrRev(Message$, " ")
numeromessaggi = Val(Mid$(Message$, x + 1, b - x))
Size = Val(Mid$(Message$, b + 1))

'------------------------------------------------
'pone l'ultimo messaggio in text3
'------------------------------------------------

Winsock1.Tag = "RETR"
sendMsg "RETR " & numeromessaggi
Text3.Text = Str$(Val(Text3.Text) + 1)
Winsock1.Tag = ""
End Sub


Questa procedura rileva correttamente l'ultimo messaggio solo all' avvio del programma ma non si accorge se arrivano nuove mail in quanto la funzione STAT restituisce sempre il nimero di messaggi che aveva rilevato all' avvio del programma.

Qualcuno mi sa aiutare?

GRAZIE