Public Class Form1
    Dim answer As Byte
    Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
        If textBox1.Text = "966" Then answer = answer + 1
        If textBox1.Text = "966" Then Label9.Visible = True
        If textBox2.Text = "1000" Then answer = answer + 1
        If textBox2.Text = "1000" Then Label10.Visible = True
        If textBox3.Text = "1320" Then answer = answer + 1
        If textBox3.Text = "1320" Then Label11.Visible = True
        If textBox4.Text = "1410" Then answer = answer + 1
        If textBox4.Text = "1410" Then Label12.Visible = True
        If textBox5.Text = "1492" Then answer = answer + 1
        If textBox5.Text = "1492" Then Label13.Visible = True
        If textBox6.Text = "1914" Then answer = answer + 1
        If textBox6.Text = "1914" Then Label14.Visible = True
        If textBox7.Text = "1918" Then answer = answer + 1
        If textBox7.Text = "1918" Then Label15.Visible = True
        If textBox8.Text = "1939" Then answer = answer + 1
        If textBox8.Text = "1939" Then Label16.Visible = True
        question.Text = "Masz" & " " & answer & " " & "dobrych odp."
        percent.Text = "Twój wynik to " & answer / 8 * 100 & "%."


    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Label9.Visible = False
        Label10.Visible = False
        Label11.Visible = False
        Label12.Visible = False
        Label13.Visible = False
        Label14.Visible = False
        Label15.Visible = False
        Label16.Visible = False