[PROBLEM] Generator kodów

[TosieKJR]

Wie ktos co zrobic aby to losowalo klucz dopiero po zaladowaniu ProgressBara?

 

Timer1.Start()
        Dim key As Integer
        key = Int(Rnd() * 16)
        Select Case key
            Case 0
                TextBox1.Text = "AS1G-B5DS-JH7L"
            Case 1
                TextBox1.Text = "FCL4-MK3R-LHC4"
            Case 2
                TextBox1.Text = "3M2F-DGRJ-WCTF"
            Case 3
                TextBox1.Text = "M4GI-LJFK-ZS4T"
            Case 4
                TextBox1.Text = "ZSTR-L23R-DF3H"
            Case 5
                TextBox1.Text = "6HJD-DT7H-2FKJ"
            Case 6
                TextBox1.Text = "JF7K-SHA4-FC7H"
            Case 7
                TextBox1.Text = "LO5Y-KB7A-WSTR"
            Case 8
                TextBox1.Text = "MKW0-AD6H-CWKA"
            Case 9
                TextBox1.Text = "GF7K-NSD6-SA1D"
            Case 10
                TextBox1.Text = "JADF-7KA8-5JFH"
            Case 11
                TextBox1.Text = "7JFK-ALMK-W6LQ"
            Case 12
                TextBox1.Text = "VB6Z-L7WQ-MCPK"
            Case 13
                TextBox1.Text = "CB8K-LVHY-AZM5"
            Case 14
                TextBox1.Text = "KAD7-MH6J-VBSD"
            Case 15
                TextBox1.Text = "JSDH-BVBN-OJQW"
            Case 16
                TextBox1.Text = "WSDK-M1JF-MAS0"


        End Select
    End Sub 

 

 

[Sunnyline2]

Dodaj if progressbar.value = 100 then

[TosieKJR]

Dzieki