This wont send the email

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("tykohlerproductions@gmail.c…
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)

Doesn't send the email!