BH-codes_v0.1

Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
        Timer3.Start()
        Timer4.Start()
        TextBox1.Text = ""
        ProgressBar1.Value = 0
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(40)

    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        If ProgressBar1.Value = 10 And ComboBox1.Text = "1000 Valor Points" Then TextBox1.Text = "CGU2-FMAN-EFJ8-WCKD"
        If ProgressBar1.Value = 10 And ComboBox1.Text = "Royal Hat" Then TextBox1.Text = "CJD9-PMP4-Y5NB-UVEQ"
        If ProgressBar1.Value = 10 And ComboBox1.Text = "Royal Nose" Then TextBox1.Text = "ARR3-WYEJ-CG9P-PGVS"
        If ProgressBar1.Value = 10 And ComboBox1.Text = "National Hat" Then TextBox1.Text = "C4YG-3A27-HDRL-D2LM"
        If ProgressBar1.Value = 10 And ComboBox1.Text = "National Nose" Then TextBox1.Text = "8WMA-AKTR-NHMF-JC2R"
        If ComboBox1.Text = "Choose item" Then TextBox1.Text = ""
    End Sub

    Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
        If TextBox1.Text = "CGU2-FMAN-EFJ8-WCKD" Then ProgressBar1.Value = 0
        If TextBox1.Text = "CGU2-FMAN-EFJ8-WCKD" Then Timer1.Stop()
        If TextBox1.Text = "CJD9-PMP4-Y5NB-UVEQ" Then ProgressBar1.Value = 0
        If TextBox1.Text = "CJD9-PMP4-Y5NB-UVEQ" Then Timer1.Stop()
        If TextBox1.Text = "ARR3-WYEJ-CG9P-PGVS" Then ProgressBar1.Value = 0
        If TextBox1.Text = "ARR3-WYEJ-CG9P-PGVS" Then Timer1.Stop()
        If TextBox1.Text = "C4YG-3A27-HDRL-D2LM" Then ProgressBar1.Value = 0
        If TextBox1.Text = "C4YG-3A27-HDRL-D2LM" Then Timer1.Stop()
        If TextBox1.Text = "8WMA-AKTR-NHMF-JC2R" Then ProgressBar1.Value = 0
        If TextBox1.Text = "8WMA-AKTR-NHMF-JC2R" Then Timer1.Stop()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MsgBox("This is for educational purposes only. UC-forum or anyone related to UC-forum is not held responsible for any abuse by users.")
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
        Process.Start("http://www.UC-forum.com/")
    End Sub
End Class