Problème d'envoi de mail

Bonjour,
Je me permets de vous contacter car je me casse les dents depuis plusieurs jours sur l'envoi automatique de mails EN VB sous Visual Studio 2019.

J'ai repris votre code datant de 2016 avec une espérance énorme et patatra...
A chaque envoi, je reçois un arrêt brutal de VS me stipulant
" IOException : Impossible de lire les données de la connexion de transport : net_io_connectionclosed."

Je vous joint le code modifié et compte grandement sur votre soutien.

Option Strict On
Imports System.Net.Mail.SmtpClient
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'Création de l’objet SmtpServer pour utiliser la classe SMTPClient de DotNet

Dim SmtpServer As New System.Net.Mail.SmtpClient

'Création de l’objet Mail Qui représente le « mail » que nous voulons envoyer et que nous allons
'paramétrer en vu de son expédition

Dim mail As New System.Net.Mail.MailMessage

'Paramétrons d’abord les infos concernant les serveurs SMTP utilisés par OpenHost
SmtpServer.Host = "smtp.gmail.com" 'l'host c'est google.
SmtpServer.Port = 465

'Ajout de l’indentité de l’expéditeur du mail

mail.From = New System.Net.Mail.MailAddress("********@gmail.com")
mail.Sender = New System.Net.Mail.MailAddress("*******@gmail.com")

'Si vous souhaitez utiliser une connexion Sécurisée mettre TRUE sinon,
'pour commencer les tests mettez FALSE

SmtpServer.EnableSsl = True

'Chargement des paramètres d’authentification, à savoir le login et le password de
'connexion pour s’authentifier sur le serveur SMTP

Dim SMTPUserInfo As New System.Net.NetworkCredential("*********@gmail.com", "************") 'mettre votre adresse mail et votre mot de passe
SmtpServer.UseDefaultCredentials = False
SmtpServer.Credentials = SMTPUserInfo

'Ajout du destinataire du mail
'Si vous voulez ajouter plusieurs destinataires, il vous suffit de répéter cette ligne pour chaque destinataire
'Idem pour les destinataires en copie et les destinataires en copie masquée.

mail.To.Add("*********@gmail.com")
' Mailmsg.To.Add(txtTo.Text) 'adresse destinataire A 'adapter nom textBox
' Mailmsg.CC.Add(txtCC.Text) 'adresse destinataire CC copie carbone'adapter nom textBox
' Mailmsg.Bcc.Add(txtBCC.Text) 'adresse destinataire CCI copie carbone 'adapter nom textBoxinvisible

'Ajout du Sujet du Mail et du message

mail.Subject = "test de mail VB"
mail.Body = "ceci est un test via Visual Studio"
' Mailmsg.Subject = txtSujet.Text 'adapter nom textBox
' Mailmsg.Body = rtxtMessage.Text 'adapter nom textBox

'Ajout possible de « Headers » pour customiser votre e-mail
'Mailmsg.Headers.Add(« X-Organization », « demo.openhost.fr »)

'Ajout possible du degr de priorit du mail
'Mailmsg.Priority = Net.Mail.MailPriority.High
'Mailmsg.Priority = Net.Mail.MailPriority.Low

mail.Priority = Net.Mail.MailPriority.Normal

'Il ne reste plus qu’ envoyer le mail

SmtpServer.Send(mail)

'Liberation des ressources utilises

mail.Dispose()

SmtpServer.Dispose()

'Controle
MsgBox("Mail envoyé", CType(64, MsgBoxStyle)) 'a supprimer après essai

' Me.Close()
End Sub
End Class