uso el codigo siguiente:
 
'Dim objMailMessage As MailMessage
            'objMailMessage = New MailMessage
            'objMailMessage.From = "
[email protected]"
            'objMailMessage.To = "
[email protected]"
            'objMailMessage.Subject = "Registro en la A.P.A"
            'objMailMessage.Body = "Gracias por registrarte. Los datos de tu registro son los siguientes: Nick= " + TextBox6.Text + "Password: " + TextBox2.Text + " Frase: " + TextBox7.Text
            'objMailMessage.BodyFormat = MailFormat.Text
            'objMailMessage.Priority = MailPriority.Normal
            'objMailMessage.Bcc = "
[email protected]"
            'Mail.SmtpMail.SmtpServer = ""
            'Mail.SmtpMail.Send(objMailMessage) 
sin la ' de inicio. Me estoy volviendo loco  
gracias anticipadas