Prova a coprire l'istruzione in cui usi il metodo Thread.Abort con il Try Catch
Private sub StopThreadInvioMail
Try
ThreadInvioMail.Abort
Catch Ex as Ecpetion
End Try
EndSub
Quello che ti suggerivo io, invece, era di uscire dal Loop, invece di abortire il Thread, quindi:
Private StopThread as boolean=false
Private sub StopThreadInvioMail
StopThread=true
EndSub
-----------------------------------------------------------
Private sub invio_mail()
for i=0 to ....
....
if StopThread then exit for
next
end sub
Facci sapere....
Ciao