Public Class Form1

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

            ProgressBar1.Increment(1)

            If ProgressBar1.Value = ProgressBar1.Maximum Then

                Timer1.Stop()

                Dim key As Integer

                key = (Rnd() * 9)

                Select Case key

                    Case 1

                        TextBox1.Text = "HK2H-KIW4-FL5L-SDJJ-LK6D"

                    Case 2

                        TextBox1.Text = "KD4G-FK35-DDSG-45Y5-GJ6D"

                    Case 3

                        TextBox1.Text = "ER78-4GFH-45H7-34Y7-3GG6"

                    Case 4

                        TextBox1.Text = "GFDG-5JJ9-YFH6-3SFU-45U7"

                    Case 5

                        TextBox1.Text = "ASFG-38F8-FGYU-DFY6-435Y"

                    Case 6

                        TextBox1.Text = "GYR6-SD46-FSJ4-HF6R-FH45"

                    Case 7

                        TextBox1.Text = "JFLS-S38F-FJDT-EKRI-DJ49"

                    Case 8

                        TextBox1.Text = "JK47-RJDU-FF6H-KDFU-FGKD"

                    Case 9

                        TextBox1.Text = "FJDK-57GJ-DKYU-DLGF-DKEU"

                End Select

                MsgBox("Done")

            End If

        End Sub

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

            Timer1.Start()

            ProgressBar1.Value = ProgressBar1.Minimum


        End Sub

    End Class