Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        AnzLabel1.Text = ""
        AnzLabel2.Text = ""
        AnzLabel3.Text = ""
        Randomize()
        zufallszahl1 = Int(Rnd() * 10)
        zufallszahl2 = Int(Rnd() * 10)
        zufallszahl3 = Int(Rnd() * 10)
        Do While zufallszahl4 <> 1 And zufallszahl4 <> 2 And zufallszahl4 <> 3
            zufallszahl4 = Int(Rnd() * 10)
        Loop
        Select Case zufallszahl4
            Case 1
                RichTextBox1.Text = "Markieren Sie das Feld, bei dem sie" & _
                  "glauben, dass " & zufallszahl1 & " herauskommt!"
            Case 2
                RichTextBox1.Text = "Markieren Sie das Feld, bei dem sie" & _
                  "glauben, dass " & zufallszahl2 & " herauskommt!"
            Case 3
                RichTextBox1.Text = "Markieren Sie das Feld, bei dem sie" & _
                  "glauben, dass " & zufallszahl3 & " herauskommt!"
        End Select
        RichTextBox2.Text = "GEWONNEN!"
        RichTextBox2.Visible = False
    End Sub