vb.net smtp mail gönderme

Dim mail As New System.Net.Mail.MailMessage() 
  mail.From = New System.Net.Mail.MailAddress("mail@yahoo.com") 
  mail.To.Add("mail@yahoo.com") 
  mail.Subject = "deneme" 
  mail.Body = "mail body" 
  mail.IsBodyHtml = True 
  Dim smtp As New Net.Mail.SmtpClient("smtp.mail.yahoo.com", 587) 
  smtp.Credentials = New Net.NetworkCredential("mail@yahoo.com", "pass") 
  smtp.Send(mail)