[TUT]Make Multi Keygen In VB

[RaZoR03]

Today i will show you how to make a simple keygen in VB.

What you will need.

2 TextBoxes
1 Button

Now rename,change,etc to make your keygen look nice.
When you have finished that,double click the button
Then enter paste the code from below..
And use your own serials..

Code:

TextBox1.Text = Int(Rnd() * 6)
        Select Case TextBox1.Text
            Case 0
                TextBox1.Text = "1330-1813-5332-3018-4123-4267"
                TextBox2.Text = "1330-1182-3585-9477-5524-4839"
            Case 1
                TextBox1.Text = "1330-1167-8857-3801-9962-4540"
                TextBox2.Text = "1330-1246-4571-8394-1888-0838"
            Case 2
                TextBox1.Text = "1330-1182-3585-9477-5524-4839"
                TextBox2.Text = "1330-1813-2281-9917-1754-3749"
            Case 3
                TextBox1.Text = "1330-1813-5332-3018-4123-4267"
                TextBox2.Text = "1330-1814-7519-3975-0873-6968"
            Case 4
                TextBox1.Text = "1330-1011-6547-2116-7061-1195"
                TextBox2.Text = "1330-1813-5332-3018-4123-4267"
            Case 5
                TextBox1.Text = "1330-1430-9860-3108-6588-8053"
                TextBox2.Text = "1330-1147-9851-4130-3716-7375"
        End Select

Done.
Enjoy