Button
    Name: btn_New_Number
    Text: Neue nummer
Button
    Name: btn_Check
    Text: Überprüfen
TextBox:
    Name: txt_Number
Label
    Name: lbl_Points

    Private Number As Integer
    Private Points As Integer
 
    Private Sub btn_New_Number_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btn_New_Number.Click
        Number = CInt(Int((10 * Rnd()) + 6))
    End Sub
 
    Private Sub btn_Check_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btn_Check.Click
        If txt_Number.Text.Equals(Number.ToString) Then
            MessageBox.Show("Richtig")
            Points += 1
        Else
            Points -= 1
        End If
        WritePointsToUI()
    End Sub
 
    Private Sub WritePointsToUI()
        lbl_Points.Text = "Punktestand: " & Points.ToString
    End Sub