VB.net send Gmail using Gmail Account over Implicit SSL on 465 Port

Imports EASendMail 'Add EASendMail namespace
Module Module1
    Sub Main()
        Dim oMail As New SmtpMail("TryIt")
        Dim oSmtp As New SmtpClient()
        ' Your gmail email address
        oMail.From = "gmailid@gmail.com"

        ' Set recipient email address, please change it to yours
        oMail.To = "support@emailarchitect.net"

        ' Set email subject
        oMail.Subject = "test email from gmail account"

        ' Set email body
        oMail.TextBody = "this is a test email sent from VB.NET project with gmail"
        'Gmail SMTP server address
        Dim oServer As New SmtpServer("smtp.gmail.com")

        ' set 465 port
        oServer.Port = 465

        ' detect SSL/TLS automatically
        oServer.ConnectType = SmtpConnectType.ConnectSSLAuto
        ' Gmail user authentication should use your
        ' Gmail email address as the user name.
        ' For example: your email is "gmailid@gmail.com", then the user should be "gmailid@gmail.com"
        oServer.User = "gmailid"
        oServer.Password = "yourpassword"

        Try
            Console.WriteLine("start to send email over SSL ...")
            oSmtp.SendMail(oServer, oMail)
            Console.WriteLine("email was sent successfully!")
        Catch ep As Exception
            Console.WriteLine("failed to send email with the following error:")
            Console.WriteLine(ep.Message)
        End Try
    End Sub
End Module