Dim Mail As New MailMessage()

Dim SmtpServer As New SmtpClient

SmtpServer.Credentials = New Net.NetworkCredential("already added email and pass", "notshowing")

SmtpServer.Port = 587

SmtpServer.Host = "smtp.gmail.com"

SmtpServer.EnableSsl = True

SmtpServer.EnableSsl = True

Mail.To.Add(TextBox1.Text)

Mail.From = New MailAddress("[email protected]")

Mail.Subject = "Frenemy Username and Password."

Mail.Body = "Heres your Username and pass for frenemy. This is not changeable at the moment." + TextBox2.Text + TextBox3.Text

SmtpServer.Send(Mail)