Envoi de données en vb net

Bonjour,
j'ai creer un programme en vb net et je voudrais qu'il envoi les données de mes 2 textbox par email voici mon code

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("monaddresse", "mon mdp")
smtpServer.Port = 587
smtpServer.Host = "smtp.live.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("monaddresse")
mail.To.Add("mon addresse")
mail.Subject = "Nouveau compte: " & TextBox2.Text
mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
smtpServer.Send(mail)
End Sub

le message s'envoi bien mais il n'affiche que Username et passeword avec aucune infos
si vous pouvez m'aider merci