vb.net keygen oluşturma

merhaba dostlar sizlere basit bir şekilde vb.net keygen oluşturma ile ilgili bir kaç bilgi vereceğim dilerseniz sırası ile işlemlere başlayalım

Görsel Resim;

1.Adım

Forum aç

2.Adım

1 Adet Textbox

1 Adet Buton

3.Adım 
Butona çift tıkla

        TextBox1.Enabled = True

        Dim Key As Integer

        Key = (Rnd() * 5)

        Select Case Key

            Case 1

                TextBox1.Text = "1"

            Case 2

                TextBox1.Text = "2"

            Case 3

                TextBox1.Text = "3"

            Case 4

                TextBox1.Text = "4"

            Case 5

                TextBox1.Text = "5"

        End Select

yukarıdaki kodları yazdıktan sonra size çalışma mantığını anlatacağım

 Key = (Rnd() * 5) kısmı bizim case 5 kısmı ile ilişkilidir bu kısmı yükseltirsek textbox'ta boşa değer dönecektir ne kadar çok keygen eklersek *5 kısmını da eklememiz lazım örnek verecek olursam 1 adet daha eklemek istiyorum ne yapmam gerekiyor  

Key = (Rnd() * 6) kısmını 6 yaptım 

ardından case 5 kısmının altına   

Case 6

  TextBox1.Text = "6"

değerlerini ekledim böylelikle bizlere 6 değer döndürmüş olacak