Colabora en los FAQ. Ayudarás a la comunidad y esta te lo agradecerá.
TextBox1.Text = Int(Rnd() * 4) Select Case TextBox1.Text Case 1 TextBox1.Text = "Texto 1" Case 2 TextBox1.Text = "Texto 2" Case 3 TextBox1.Text = "Texto 3" Case 4 TextBox1.Text = "Texto 4" End Select
Me.Close()
si explicas los codigos mejor xD
Con gusto