Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim witz As Integer
        witz = Int(Rnd() * 10)
        Select Case witz
            Case 1
                TextBox1.Text = "1"
            Case 2
                TextBox1.Text = "2"
            Case 3
                TextBox1.Text = "3"
            Case 4
                TextBox1.Text = "4"
            Case 5
                TextBox1.Text = "5"
            Case 6
                TextBox1.Text = "6"
            Case 7
                TextBox1.Text = "7"
            Case 8
                TextBox1.Text = "8"
            Case 9
                TextBox1.Text = "9"
            Case 10
                TextBox1.Text = "10"
        End Select
 
    End Sub