Cod pt KeyGen

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

If TextBox1.Text = "HkthYxYhxhLLAuthG" Then
correct.Text = "Serial is Correct"
correct.ForeColor = Color.Green
continuebutton.Enabled = True
continuebutton.Select()
TextBox1.Enabled = False
Else
If TextBox1.Text = "JXvxvHjjd96Jjsh#" Then
correct.Text = "Serial is Correct"
correct.ForeColor = Color.Green
continuebutton.Enabled = True
continuebutton.Select()
TextBox1.Enabled = False
Else
If TextBox1.Text = "$63gffJyuTGF)*^" Then
correct.Text = "Serial is Correct"
correct.ForeColor = Color.Green
continuebutton.Enabled = True
continuebutton.Select()
TextBox1.Enabled = False
Else
If TextBox1.Text = "HGHhssJFl)(BnbB" Then
correct.Text = "Serial is Correct"
correct.ForeColor = Color.Green
continuebutton.Enabled = True
continuebutton.Select()
TextBox1.Enabled = False
Else
correct.Text = "Serial is In-Correct"
correct.ForeColor = Color.Red
continuebutton.Visible = False
continuebutton.Enabled = False
End If


Cod folosit pentru a va face keygen'uri.Codul trebuie sa fie introdus in TextBox.

Multumim