Inviare mail da vb.net

Salve,

quando provo ad inviare la mail mi dice "errore durante l'invio" senza specificare l'errore

questo è il codice

ho inserito la mia password e poi anche la password generata per le app

niente da fare

grazie

questi sono gli imports

Imports System.Net
Imports System.Net.Mail


Module Module1
    Sub Main()
        Try
            Dim smtpClient As New SmtpClient("smtp.gmail.com", 465)
            smtpClient.Credentials = New NetworkCredential("mia mail", "password")
            smtpClient.UseDefaultCredentials = False
            smtpClient.EnableSsl = True

            Dim mailMessage As New MailMessage()
            mailMessage.From = New MailAddress("mia mail")
            mailMessage.To.Add("mail destinatario")
            mailMessage.Subject = "Invio da VB.NET"
            mailMessage.IsBodyHtml = True
            mailMessage.Body = "Ciao, questa è una email per testare VB.NET"

            smtpClient.Send(mailMessage)
            Console.WriteLine("Email inviata")
        Catch e As SmtpException
            Console.WriteLine("SMTP: " & e.Message)
            Console.WriteLine(e.ToString)
        Catch e As Exception
            Console.WriteLine("ERRORE: " & e.Message)
        End Try
    End Sub

End Module