BGT’s Tutorials – How to make a keygen in Visual Basic

–Generate button TextBox1.Text = Int(Rnd() * 3) Select Case TextBox1.Text Case 0 TextBox1.Text = “XBW3-98YT-DJK2-0JR1” Case 1 TextBox1.Text = “ZBR1-GHR5-O762-LIQ2” Case 2 TextBox1.Text = “AEQS-UJR2-JSJK-POKQ” End Select End Sub –Exit button Me.Close()