Imports System.Net.Mail
'Luego creo un objeto de tipo MailMessage
Dim Correo As New MailMessage()
Correo.To.Add("gabio2@gmail.com")
Correo.Subject = "Hola gab"
Correo.Body = "Esto es una prueba"
Correo.IsBodyHtml = False
Correo.Priority = MailPriority.High
Dim smtp As New SmtpClient()
smtp.UseDefaultCredentials = True
smtp.Host = "smtp.gmail.com"
smtp.EnableSsl = True
smtp.Credentials = New System.Net.NetworkCredential("tucorreo@gmail.com","TuPassword")
Try
smtp.Send(Correo)
Catch (Exeption ex)
MessageBox.Show(ex.Message)
End Try