Timer1.Start()
no timer1 coloque isso


ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then
Dim WC As New System.Net.WebClient
Dim MyMailMessage As New MailMessage
MyMailMessage.From = New MailAddress(“Aqui bote seu endereço de email.Mas tem que ser do Gmail “)
MyMailMessage.To.Add(TextBox1.Text)
MyMailMessage.Subject = (TextBox2.Text)
WC.Dispose()
MyMailMessage.Body = (RichTextBox1.Text)
Dim SMTPServer As New SmtpClient(“smtp.gmail.com”)
SMTPServer.Port = 587
SMTPServer.Credentials = New System.Net.NetworkCredential(“Repita o endereço de email do Gmail.”, “Aqui bote a senha do email. “)
SMTPServer.EnableSsl = True
Try
SMTPServer.Send(MyMailMessage)
Catch ex As SmtpException
End Try
End If

No button2 bote isso
Me.Close()
Nas declarações bote isso
Imports System.Net.Mail