codice:
Dim sel
        sel = Oggetto.SelectedItem.Value
        Dim email As New Mail.MailMessage
        email.From = Txt_Mail.Text
        email.To = "prova@tiscalinet.it"
        email.Subject = sel
        email.Body = "E' arrivata una nuova mail di " & Txt_nome.Text & " in data " & DateAndTime.Now.ToLongDateString  
       
System.Web.Mail.SmtpMail.SmtpServer = "smtp.tiscali.it"     
System.Web.Mail.SmtpMail.Send(email)
ho notato che mettevi prima il send e poi smtp prova ad inventirli.