VBTut
Home
Tutorials
Resources
TextBox1.Text = Int(Rnd() * 4) Select Case TextBox1.Text Case 0 TextBox1.Text = "CD key" Case 1 TextBox1.Text = "CD key" Case 2 TextBox1.Text = "CD key" Case 3 TextBox1.Text = "CD key" End Select