Envío de emails con VB

Buenos dias, el codigo lo tienen inconvenientes, pero si existe una restriccion para realizar envios desde ubicaciones y aplicaciones desconocidas  en gmail, 

1. Verifica y habilita el acceso a aplicaciones desconocidas en gmail a traves del este link:

 https://www.google.com/settings/security/lesssecureapps

2. Utiliza el puerto 25 en tu configuracion SMTP

Te envio la correccion de tu codigo, no hace falta utilizar codificacion UTF8, ya que gmail lo hace por nosotros.

  Dim correo As New MailMessage
        Dim smtp As New SmtpClient()

        correo.From = New MailAddress("cualquier@correo.com", "nombredeusuario")
        correo.To.Add("destinatario@correo.com")

        correo.Subject = "Test Mail"
        correo.Body = "This is for testing SMTP mail from GMAIL"

        correo.Priority = MailPriority.Normal
        correo.IsBodyHtml = False

        smtp.Host = "smtp.gmail.com"
        smtp.Port = 25
        smtp.EnableSsl = True
        smtp.UseDefaultCredentials = False
        smtp.Credentials = New Net.NetworkCredential("xxx@gmail.com", "contraseña")
        smtp.DeliveryMethod = SmtpDeliveryMethod.Network
        smtp.Send(correo)

Saludos

:)