Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "Serial Code here" Then
MsgBox("Correct Key", MsgBoxStyle.Information, "Correct Key!")
Form2.Show()
Else
MsgBox("Incorrect Key!", MsgBoxStyle.Critical, "Error")
End If
End Sub
End Class
If my.settings.validate = "1" then
form2.show()
end if
If TextBox1.Text = "Serial Code here" Then
MsgBox("Correct Key", MsgBoxStyle.Information, "Correct Key!")
My.Settings.Validate.Text = "1"
My.Settings.Validate.save()
Form2.Show()
Else
MsgBox("Incorrect Key!", MsgBoxStyle.Critical, "Error")
End If
Copyright © 2026, NextGenUpdate.
All Rights Reserved.