Private Sub txtGen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtGen.Click
        If comboValg.Text = "Spill 1" Then
            txtKey.Text = "473-434-675"
        ElseIf comboValg.Text = "Program" Then
            txtKey.Text = "123-465-234"
        Else
            txtKey.Text = " PLEASE CHOOSE A GAME / PROGRAM "
        End If
    End Sub
End Class

        If comboValg.Text = "Spill 1" Then
            txtKey.Text = "473-434-675"
            txtKey.Text = "473-434-675"
            txtKey.Text = "473-434-675"

Public Class generateKeys

Public Function Generate(programID As Byte) As String
 Select Case programID
  Case 1 'Hvis program/spill er nr 1
   Return game1()
  Case 2 'Hvis program/spill er nr 2
   Return game2()
  Case Else
   Return "PLEASE SELECT GAME / PROGRAM"
 End Select
End Function

Dim genKeys As New ArrayList
Public Function game1() As String
  'algoritme for spill1 som legges i en arraylist genKeys
 'selecting a random key from the arraylist 
 Randomize()
 Dim select As Integer = Int(Rnd() * genKeys.count - 1)
 Return genKeys(select)
End Function

Public Function game2() As String
  'algoritme for spill2 som legges i en arraylist genKeys
 'selecting a random key from the arraylist 
 Randomize()
 Dim select As Integer = Int(Rnd() * genKeys.count - 1)
 Return genKeys(select)
End Function

End Sub

 Private Sub txtGen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtGen.Click 
        'For å minimalisere koden, så har vi en statisk comboboks med valgene

        '(0) Velg spill
        '(1) Spill 1
        '(2) Spill 2

        txtKey.Text = Generate(comboValg.SelectedIndex)
    End Sub

   Dim genKey As New ArrayList

    'Midlertidig funksjon for å fylle ut listen
    Sub filleliste(ByVal game As Integer)
        genKey.Clear()
        Randomize()
        Dim group1 As Integer, group2 As Integer
        For x As Integer = 0 To 100
            group1 = (Int(Rnd() * 9) + 1) * 1
            group1 = group1 + Int(Rnd() * 1000)
            group2 = (Int(Rnd() * 9) + 1) * 1000
            group2 = group2 + Int(Rnd() * 1000)
            genKey.Add(game.ToString & "-" & group1.ToString & "-" & group2.ToString)
        Next
    End Sub