Prova così
Imports System.Net.Mail
...
Protected Sub SendMail()
Try
Dim mail As New MailMessage()
mail.From = New MailAddress(txtEmail.Text)
mail.To.Add(New MailAddress("mail@dominio.it"))
'mail.Bcc.Add("no-reply@dominio.it")
mail.Subject = "Messaggio inviato da " & txName.Text & " - " & txMail.Text
mail.IsBodyHtml = True
mail.Body = txMsg.Text
Dim smtp As New SmtpClient("smtp.dominio.it", 25)
smtp.Send(mail)
txtAutor.Text = ""
txtEmail.Text = ""
txtMessage.Text = ""
FailureText.Text = "Il messaggio è stato inviato."
Catch ex As Exception
FailureText.Text = "Errore: " & ex.Message
End Try
End Sub
Ciao
alexmed