VB crear nuevo proyecto etc. una ves en frente del form1 pones 2 botones y una texbox y que quede asien el boton 1 pegas esto
TextBox1.Text = Int(Rnd() * 5)
Select Case TextBox1.Text
Case 0
TextBox1.Text = "CLAVE"
Case 1
TextBox1.Text = "CLAVE"
Case 2
TextBox1.Text = "CLAVE"
Case 3
TextBox1.Text = "CLAVE"
Case 4
TextBox1.Text = "CLAVE"
Case 5
TextBox1.Text = "CLAVE"
End Select
donde dice clave pegas el serial del keygen que crees
si queres agregar mas claves pones
Case 6 etc. pero primero configuras esto TextBox1.Text = Int(Rnd() * 6) (esto va al comienzo del codigo fijense) donde dice 6 le pones la cantidad de seriales que pondras en el keygen y listo
salu2...