Visual Basic.NET - envio de email

Hola a todos, a ver si alguien me puede ayudar con esto. Quisiera mandar un email por codigo a unas direcciones de correo concretas, como cuenta origen uso a gmail. Estuve mirando y encontre este codio, pero es que no me lo manda, me dice que no es posible conectar con el servidor remoto.
Se que hay que configurar el gmail para admitir pop3, y ya lo hice pero sigue igual. Muchas gracias

'definicion e instanciacion de la clase MailMessage
Dim MMessage As System.Net.Mail.MailMessage = New System.Net.Mail.MailMessage()
'rellenamos los parametros usuarles para el envio de un email
MMessage.To.Add("[email protected]")
MMessage.From = New MailAddress("[email protected]", "FANY", System.Text.Encoding.UTF8)
MMessage.Subject = "Test"
MMessage.SubjectEncoding = System.Text.Encoding.UTF8
MMessage.Body = "esto es una prueba"
MMessage.BodyEncoding = System.Text.Encoding.UTF8
MMessage.IsBodyHtml = False ' formato de texto plano
'definimos nuestrar credenciales para el envio de emails a traves de Gmail
Dim SClient As New SmtpClient()
SClient.Credentials = New System.Net.NetworkCredential("[email protected]", "castrovizoso")
SClient.Host = "smtp.gmail.com" 'servidor smtp de gmail
SClient.Port = 587 'puerto del smtp de Gmail
SClient.EnableSsl = True 'habilita el SSL, necesio en Gmail
'capturamos los errores en el envio
Try
SClient.Send(MMessage)
MsgBox("El mensaje se ha enviado correctamente.")
Catch ex As Exception
MsgBox(ex.ToString)
End Try