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