Creare un semplice keygen in VB2008

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ProgressBar1.Maximum = 100
        ProgressBar1.Minimum = 0
        ProgressBar1.Value = 0
        Timer1.Interval = 40
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If ProgressBar1.Value = 100 Then
            ProgressBar1.Value = 0
            Timer1.Stop()
        End If
        ProgressBar1.Value = ProgressBar1.Value + 1
        If ProgressBar1.Value = 100 Then
            Timer1.Stop()
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
        TextBox1.Text = Int(Rnd() * 4)
        Select Case TextBox1.Text
            Case 0
                TextBox1.Text = "Il primo seriale"
            Case 1
                TextBox1.Text = "Il secondo seriale"
            Case 2
                TextBox1.Text = "Il terzo seriale"
            Case 3
                TextBox1.Text = "Il quarto seriale"
        End Select
    End Sub
End Class

TextBox1.Text = Int(Rnd() * 4) 'Al posto di quattro va messo il numero di seriale che avete inserito voi
        Select Case TextBox1.Text
            Case 0
                TextBox1.Text = "Il primo seriale" 'Qui va il numero del seriale e la stessa cosa per gli altri
            Case 1
                TextBox1.Text = "Il secondo seriale"
            Case 2
                TextBox1.Text = "Il terzo seriale"
            Case 3
                TextBox1.Text = "Il quarto seriale"
'Se per esempio dovete mettere 4 seriali qui va scritto case 4 e poi il resto
        End Select