Visual Basic.NET - codigo para crear un keygen

Hola a Todos!!!!!!
Lo primro felicitaros por como teneis la web, menuda pasado nano!!!!!!!!!!!!!!!!!!
Y lo segundo............
haber yo kiero crear un keygen en visual basic 2005, lo ke pasa eske yo los solia crear en visual basic 6.0, pero claro como no el lenguaje ha cambiado y me gustaria ke me mandaran el codigo para generar un keygen

jejeje primero sos por dos años tarde por el post jejeje
pero aki te dejo el codigo k realice para un generador de contraseñas alfanumerico

Private Sub btnacc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnacc.Click
'-----generador de random-----
'!***elaborado por alan carrillo romero*****
'!

Dim rnd As New Random
Dim alfarndg As String = rnd.Next(0, 60)
Dim alfarndg1 As String = rnd.Next(0, 60)
Dim alfarndg2 As String = rnd.Next(0, 60)

'----almacenadoras---

Dim pca As Integer = rnd.Next(1, 99)
Dim pce As String
Dim pce1 As Integer = alfarndg
Dim pci As String
Dim pci1 As Integer = alfarndg1
Dim pco As Integer = rnd.Next(1, 99)
Dim pc32 As Integer = rnd.Next(1, 99)
Dim pcu As String
Dim pcu1 As Integer = alfarndg2
Dim var As Integer = Nothing
Dim var2 As String
slay:
'---------generador------
Dim undo As Integer = 0
If undo = 0 Then
If var = Nothing Then
var = pce1
Else
If var = pce1 Then
var = pci1
pce1 = Nothing
Else
If var = pci1 Then
var = pcu1
pci1 = Nothing
undo = 1
End If
End If
End If

'** este codigo genera el keygen alfanumerico
Select Case var
Case 0 : var2 = "ah"
Case 1 : var2 = "bx"
Case 2 : var2 = "ch"
Case 3 : var2 = "dp"
Case 4 : var2 = "ea"
Case 5 : var2 = "ff"
Case 6 : var2 = "gt"
Case 7 : var2 = "hh"
Case 8 : var2 = "iu"
Case 9 : var2 = "jb"
Case 10 : var2 = "kw"
Case 11 : var2 = "lw"
Case 12 : var2 = "wm"
Case 13 : var2 = "nf"
Case 14 : var2 = "fo"
Case 15 : var2 = "pf"
Case 16 : var2 = "hq"
Case 17 : var2 = "ry"
Case 18 : var2 = "ys"
Case 19 : var2 = "it"
Case 20 : var2 = "uh"
Case 21 : var2 = "zv"
Case 22 : var2 = "wz"
Case 23 : var2 = "yx"
Case 24 : var2 = "yp"
Case 25 : var2 = "zk"
Case 26 : var2 = "rt"
Case 27 : var2 = "an"
Case 28 : var2 = "al"
Case 29 : var2 = "qw"
Case 29 : var2 = "wq"
Case 30 : var2 = "as"
Case 31 : var2 = "se"
Case 32 : var2 = "dc"
Case 33 : var2 = "ds"
Case 34 : var2 = "fr"
Case 35 : var2 = "tg"
Case 36 : var2 = "xs"
Case 37 : var2 = "bg"
Case 38 : var2 = "vb"
Case 39 : var2 = "az"
Case 40 : var2 = "zñ"
Case 41 : var2 = "bn"
Case 42 : var2 = "nt"
Case 43 : var2 = "ei"
Case 44 : var2 = "no"
Case 45 : var2 = "po"
Case 46 : var2 = "pu"
Case 47 : var2 = "to"
Case 48 : var2 = "hu"
Case 49 : var2 = "ad"
Case 50 : var2 = "ds"
Case 56 : var2 = "ed"
Case 57 : var2 = "fg"
Case 58 : var2 = "vh"
Case 59 : var2 = "jn"
Case 60 : var2 = "mf"
End Select
If Not pce1 = Nothing Then
pce = var2

GoTo slay
End If
If Not pci1 = Nothing Then
pci = var2

GoTo slay
End If
If Not pcu1 = Nothing Then
pcu = var2
pcu1 = Nothing
GoTo slay
End If
End If
'Dim generate As String
'-------almacenado de valores--------
Dim a As String = pca
Dim b As String = pco
Dim c As String = pc32
Dim longtipe As String = a + pce + pci + c + b + pcu
txtpass.Text = longtipe
End Sub

gracias por el codigo nos fue de gran utilidad