Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        TextBox1.Text = CInt(Int((10 * Rnd()) + 6))
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
        TextBox1.Text = CInt(Int((10 * Rnd()) + 6))
 
    End Sub
 
    Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click, Button3.Click
        Randomize()
        TextBox1.Text = CInt(Int((10 * Rnd()) + 6))
        Button3.Enabled = False
        Button2.Enabled = True
        Button1.Enabled = True
    End Sub
 
    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Label1.Click
        Label1.Text = "Punktestand:" & Punktestand
    End Sub
End Class