Dim Mail As New MailMessage
Mail.Subject = "********"
Mail.To.Add("***********")
Mail.From = New MailAddress(TextBox1.Text)
Mail.Body = (RichTextBox1.Text)
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential(TextBox1.Text, TextBox2.Text)
SMTP.Port = "587"
SMTP.Send(Mail)