خطأ في كود إرسال بريد إلكتروني

Imports System.Net
Imports System.Net.Mail
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            Dim mail As New MailMessage("amremad_world@yahoo.com", "amremad_world@yahoo.com")
            Dim smtp As New SmtpClient("smtp.mail.yahoo.com", 587)
            mail.IsBodyHtml = False
            mail.Subject = "test mail"
            smtp.Credentials = New NetworkCredential("amremad_world", "**********")
            smtp.Send(mail)
            MsgBox("E-mail Sent")
        Catch ex As Exception
            MsgBox("Send Fail")
            Exit Sub
        End Try
    End Sub
End Class

عندما أقوم بإستخدام الكود أعلاه يفشل الإرسال .. علي الرغم أن كل من جربه يعمل ..

أرجوا المساعدة