[vb.net] "Keygen Source"

Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim key As Integer
        key = Int(Rnd() * 10)
        Select Case key
            Case 1
                TextBox1.Text = "TEXT HERE"
            Case 2
                TextBox1.Text = "TEXT HERE"
            Case 3
                TextBox1.Text = "TEXT HERE"
            Case 4
                TextBox1.Text = "TEXT HERE"
            Case 5
                TextBox1.Text = "TEXT HERE"
            Case 6
                TextBox1.Text = "TEXT HERE"
            Case 7
                TextBox1.Text = "TEXT HERE"
            Case 8
                TextBox1.Text = "TEXT HERE"
            Case 9
                TextBox1.Text = "TEXT HERE"
            Case 10
                TextBox1.Text = "TEXT HERE"
        End Select
    End Sub
End Class