Bom Iniciem O VB.

Apos ter feitos isso

Coloquem :
-----------------------
Um Button = Gerar
e uma Text = ""
----------------------


No Bottun gerar insira o codes:
Private Sub Gerar_Click() 'Função random key
Text1.Text = Int(Rnd * 40)
Select Case Text1
Case 0
Text1.Text = "QW4HD-DQCRG-HM64M-6GJRK-8K83T"
Case 1
Text1.Text = "PQTHM-RWBHR-3BPVW-TFB22-V8HXQ"
Case 2
Text1.Text = "KQC2B-X683R-2CDXT-PQ7HQ-47MPT"
Case 3
Text1.Text = "JFQYM-YJQFQ-VBRCY-4VV7W-QRXBY"
Case 4
Text1.Text = "KMTTB-68H32-8MKRK-GBHKT-RKCP6"
Case 5
Text1.Text = "CX7DD-4GX4Y-BTTR4-H88Y7-GQPWQ"
Case 6
Text1.Text = "XP8BF-F8HPF-PY6BX-K24PJ-TWT6M"
Case 7
Text1.Text = "8RCKG-36TH8-VWBGK-T3CB6-RHG48"
Case 8
Text1.Text = "7G4H4-T4XXW-BVXTH-4QP4V-9CV28"
Case 9
Text1.Text = "PG274-383QX-6C32H-P8RWC-48M4Q"
Case 10
Text1.Text = "CWY3F-JGYHJ-W6KBG-3VYK7-DGG7M"
Case 11
Text1.Text = "X6YWJ-M4TG2-DPGWJ-QCFR8-927M6"
Case 12
Text1.Text = "QCP6D-7VGVJ-JBKB4-DQMB2-9GTJ3"
Case 13
Text1.Text = "HFVK4-TFWFG-4JKDH-H3FTT-8B23W"
Case 14
Text1.Text = "F7GV4-B7JGY-Q2KQW-6R8BM-FR8D6"
Case 15
Text1.Text = "HRPR7-WGJFC-VPHRB-XVFRW-2KPWY"
Case 16
Text1.Text = "7FMM3-W4FMP-4WRXX-BKDRT-7HG48"
End Select
End Sub


Pronto! essas são agumas chaves... MUNDO HACKER!