how to make kegen using Microsoft Visual Basic part2

It gives you the basic. I hope everyone will be able to make an easy keygen after reading this tutorual

Step 1) Download Microsoft Visual Basic. Use torrents or any other program so you'll get the program for free.
Step 2) Install it.
Step 3) Choose "New Project" and click on "Windows form application"

Spoiler : 

Make the keygen
Step 4) Place a button, a textbox, a progress bar and some radio buttons.

Spoiler : 

Step 5) Change the name of the radio buttons and the button

Spoiler : 

Progressbar generator
Step 6a) We want that the progress bar increases smoothly. Add a timer and place it in the progress bar.

Spoiler : 

Step 7a) Double click the timer and add this:

Spoiler : 

ProgressBar1.Increment(1)
If ProgressBar1.Value = ProgressBar1.Maximum Then
End If

Step 8a) Double click the button 1 and add this: 

Spoiler : 

Timer1.Start()

Keygenerator
Step 6b) Double click the button 1 and add this: (I've used 2 textbox. Textbox 1 for your username and texbox 2 for the key)
Also remember to put it on "read only"

Spoiler : 

TextBox2.Text = Int(Rnd() * 10)
Select Case TextBox2.Text
Case 0
TextBox2.Text = "H4TRG-GUF4T-FHG45-FHG5G-4FQ4G"
Case 1
TextBox2.Text = "FDHAD-DSGHI-DSIHG-DSPHO-DSHGF"
Case 2
TextBox2.Text = "DH434-GSRGF-3954F-4GYTJ-SG43S"
Case 3
TextBox2.Text = "5Y2VG-FJGBG-DIGH4-DGFOI-IO4RJ"
Case 4
TextBox2.Text = "4ITG1-WGOJW-DPG32-23TGF-WEOFD"
Case 5
TextBox2.Text = "SDGAA-SDGOS-SADGS-AGFDS-AGFDS"
Case 6
TextBox2.Text = "ADFGS-SGASG-GHSHS-SSGFW-FSDHH"
Case 7
TextBox2.Text = "AGJKH-AHIGJ-RIQ89-IROT4-GUIQ4"
Case 8
TextBox2.Text = "SGH34-43TFR-325R1-43WFI-SDHIG"
Case 9
TextBox2.Text = "GT3SE-3RSSR-3GSA2-CZGSA-SDGTF"
End Select

Keygenerator + progressbar together
Put this under timer_tick

Spoiler : 

ProgressBar1.Increment(1)
If ProgressBar1.Value = 99 Then
TextBox2.Text = Int(Rnd() * 10)
Select Case TextBox2.Text
Case 0
TextBox2.Text = "H4TRG-GUF4T-FHG45-FHG5G-4FQ4G"
Case 1
TextBox2.Text = "FDHAD-DSGHI-DSIHG-DSPHO-DSHGF"
Case 2
TextBox2.Text = "DH434-GSRGF-3954F-4GYTJ-SG43S"
Case 3
TextBox2.Text = "5Y2VG-FJGBG-DIGH4-DGFOI-IO4RJ"
Case 4
TextBox2.Text = "4ITG1-WGOJW-DPG32-23TGF-WEOFD"
Case 5
TextBox2.Text = "SDGAA-SDGOS-SADGS-AGFDS-AGFDS"
Case 6
TextBox2.Text = "ADFGS-SGASG-GHSHS-SSGFW-FSDHH"
Case 7
TextBox2.Text = "AGJKH-AHIGJ-RIQ89-IROT4-GUIQ4"
Case 8
TextBox2.Text = "SGH34-43TFR-325R1-43WFI-SDHIG"
Case 9
TextBox2.Text = "GT3SE-3RSSR-3GSA2-CZGSA-SDGTF"
End Select
End If