Hi, the cause is most probably because you did not enable the SSL with gmail. I suggest that you add:
Try
Dim Smtp_Server As New SmtpClient
Dim e_mail As New MailMessage()
Smtp_Server.UseDefaultCredentials = False
Smtp_Server.Credentials = New Net.NetworkCredential("username@gmail.com", "password")
Smtp_Server.Port = 587
Smtp_Server.EnableSsl = True
Smtp_Server.Host = "smtp.gmail.com"
SmtpServer.EnableSsl = True
SmtpServer.EnableSsl = True to your code. Also Gmails sometimes creates problems when sending emails trough this manner, so after you test your solution, please login to your gmail and check the security issues (they will most probably ask you about that transaction and you might need to enter a captcha on their login page to validate that you are the one using it). Also, check that SMTP is enabled in Gmail.
Also do check the
How to Send Mails from your GMAIL Account through VB.NET or C#. Windows Programming, with a Bit of Customization[
^] tutorial from CodeProject.