Visual Basic.NET - Enviar una mail, no me sale

En donde busque párese ser que el código esta bien pero siempre me da el error:
Fallo al enviar correo
La aplicación esta echa en VB 2005 Express

Acá el código:

Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim correo As New MailMessage
correo.From = New MailAddress("[email protected]")
correo.To.Add("[email protected]")
correo.Subject = "Hola"
correo.Body = "envio de correo a trvez de VB.NET 2005"
correo.IsBodyHtml = False
correo.Priority = MailPriority.Normal
Dim smtp As New SmtpClient()
smtp.Host = "smtp.yahoo.com.ar"
smtp.Port = 587 'habilite este puerto en el firewall de windows, por si las moscas
smtp.Credentials = New System.Net.NetworkCredential("[email protected]", "mi contraceña")
smtp.EnableSsl = True
Try
smtp.Send(correo)
MsgBox("Mensaje enviado satisfactoriamente")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class

Si alguien la puede probar joya, que me cuente,
acordarse que para probar con Hotmail hay problemas con el smpt, directamente no tiene para cuentas nuevas,
Muchas gracias.