Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

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

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Enabled = True
        Dim Key As Integer
        Key = (Rnd() * 5)
        Select Case Key
            Case 1
                TextBox1.Text = "12OJ-PXL3-DOJ1-AQOJ-XZOA"
            Case 2
                TextBox1.Text = "ZPL9-PO62-QWW9-CMN1-PQO2"
            Case 3
                TextBox1.Text = "TP2J-PXKA-1L3A-ZPL1-KAR2"
            Case 4
                TextBox1.Text = "O1RJ-D3LT-APR0-ZO1J-3M2O"
            Case 5
                TextBox1.Text = "2KT9-CMP2-3ZM1-ROJ1-OGJ4"
        End Select
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        TextBox1.Enabled = True
        Dim Key As Integer
        Key = (Rnd() * 5)
        Select Case Key
            Case 1
                TextBox1.Text = "51J0-AG93-V1OJ-OC1J-COJ1"
            Case 2
                TextBox1.Text = "L16P-XA9L-O1J3-DINJ-XL12"
            Case 3
                TextBox1.Text = "SXM1-23LL-AOJ2-DOL1-MIZL"
            Case 4
                TextBox1.Text = "APR0-ZO1J-MXI1-3M2O-O1JS"
            Case 5
                TextBox1.Text = "1SLP-XM1O-LAXO-ROJ1-OGJ4"
        End Select
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox1.Enabled = True
        Dim Key As Integer
        Key = (Rnd() * 5)
        Select Case Key
            Case 1
                TextBox1.Text = "EPL1-QDOJ-X1OJ-L1PL-130I"
            Case 2
                TextBox1.Text = "SPL1-1SPL-QWW9-CMN1-PQO2"
            Case 3
                TextBox1.Text = "Z1PL-1L3A-ZPL1-XPL1-DP1L"
            Case 4
                TextBox1.Text = "YE1X-1PL3-SDPL-APLQ-1PL2"
            Case 5
                TextBox1.Text = "QPL1-3ZM1-ROJ1-OGJ4-31PL"
        End Select
    End Sub
End Class