Stap 4: Codering de knoppen
TextBox1.Text = Int(Rnd() * 4)
Selecteer zaak TextBox1.Text
Geval 0
TextBox1.Text = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"
Geval 1
TextBox1.Text = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"
Case 2
TextBox1.Text = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"
Case 3
TextBox1.Text = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"
Zaak 4
TextBox1.Text = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"
Geval 5
TextBox1.Text = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"
Einde selecteren