Membuat program Keygen sederhana dengan menggunakan command button

1. Siapkan sebuah projet baru dengan 1 form
   
2. Masukkan objek Command Button dan Text Box ke dalam form tersebut
3. Double Click pada Command Button lalu sisipkan kode berikut di Private Sub dan End Sub:

Dim aKey As Integer
Key = Int(Rnd() * 3)
Select Case a Key
Case 0
Text1.Text = "no. serial 1"
Case 1
Text1.Text = "no. serial 2"
Case 2
Text1.Text = "no. serial 3"
Case 3
Text1.Text = "no. serial 4"
End Select

Catatat:
- Angka 3 pada kode Key = Int(Rnd() * 3) adalah jumlah no.serial yang kamu miliki
- Jumlah Case yang dibutuhkan adalah sebanyak jumlah no.serial dimulai dari 0