generate button + progress bar + klucz w textboxie

mam pytanie, jak wykonać prosty keygen na którym klikamy button generowania, następnie progressbar zaczyna działać a po ukończeniu progressbara ukazuje się klucz w textboxie?

mam pytanie, jak wykonać prosty keygen na którym klikamy button generowania, następnie progressbar zaczyna działać a po ukończeniu progressbara ukazuje się klucz w textboxie?

wystarczyło zjechać trochę niżej 

http://make-cash.pl/jak-zrobi%C4%87-hackkeygen-pdf-t1345/

okej skleiłem z innych tematów coś takiego:
 

Public Class Form1    Dim Letters As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"    Dim Lettersa(0 To 19) As String    Dim value As Integer    Private Sub GenerateButton_Click(ByVal sender As Object, ByVal e As EventArgs) Handles GenerateButton.Click        Timer.Start()        Randomize()        ProgressBar.Value = 0        Randomize()        TextBox1.Text = ""    End Sub    Private Sub Timer_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer.Tick        ProgressBar.Increment(1)        If ProgressBar.Value = 10 Then            Timer.Interval = 30        End If        If ProgressBar.Value = 25 Then            Timer.Interval = 100        End If        If ProgressBar.Value = 50 Then            Timer.Interval = 30        End If        If ProgressBar.Value = 75 Then            Timer.Interval = 150        End If        If ProgressBar.Value = 85 Then            Timer.Interval = 50        End If        If ProgressBar.Value = 100 Then            Timer.Stop()        End If        If ProgressBar.Value = 100 Then            Randomize()            TextBox1.Text = ""            For i As Integer = 0 To 19                value = CInt(Int((Letters.Length * Rnd()) + 0))                Lettersa(i) = Letters.Substring(value, 1)            Next i            For b As Integer = 0 To 4                TextBox1.Text = TextBox1.Text + Lettersa(            Next            TextBox1.Text = TextBox1.Text + "-"            For c As Integer = 5 To 9                TextBox1.Text = TextBox1.Text + Lettersa(c)            Next            TextBox1.Text = TextBox1.Text + "-"            For d As Integer = 10 To 14                TextBox1.Text = TextBox1.Text + Lettersa(d)            Next        End If    End SubEnd Class

dla potrzebujących