Try
    Dim Email As New MailMessage()
    Email.From = New MailAddress("email1@gmail.com")
    Email.To.Add("email@gmail.com")
    Email.Subject = "Subject"
    Email.IsBodyHtml = False
   // Email.Body = Text Source

    Dim EmailClient As New SmtpClient("smtp.gmail.com", 465)
    EmailClient.EnableSsl = True
    EmailClient.Credentials = New Net.NetworkCredential("email@gmail.com", "password")
    EmailClient.Timeout = 10000
    EmailClient.Send(Email)

Catch exception As SmtpException
    MsgBox(exception.StatusCode & vbCrLf & ex.Message, vbCritical, "SMTP ERROR.")
End Try