1. Public Class Form1
2.     Dim answer As Byte
3.     Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
4.         If textBox1.Text = "966" Then answer = answer + 1
5.         If textBox1.Text = "966" Then Label9.Visible = True
6.         If textBox2.Text = "1000" Then answer = answer + 1
7.         If textBox2.Text = "1000" Then Label10.Visible = True
8.         If textBox3.Text = "1320" Then answer = answer + 1
9.         If textBox3.Text = "1320" Then Label11.Visible = True
10.         If textBox4.Text = "1410" Then answer = answer + 1
11.         If textBox4.Text = "1410" Then Label12.Visible = True
12.         If textBox5.Text = "1492" Then answer = answer + 1
13.         If textBox5.Text = "1492" Then Label13.Visible = True
14.         If textBox6.Text = "1914" Then answer = answer + 1
15.         If textBox6.Text = "1914" Then Label14.Visible = True
16.         If textBox7.Text = "1918" Then answer = answer + 1
17.         If textBox7.Text = "1918" Then Label15.Visible = True
18.         If textBox8.Text = "1939" Then answer = answer + 1
19.         If textBox8.Text = "1939" Then Label16.Visible = True
20.         question.Text = "Masz" & " " & answer & " " & "dobrych odp."
21.         percent.Text = "Twój wynik to " & answer / 8 * 100 & "%."
22.  
23.  
24.     End Sub
25.  
26.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
27.         Label9.Visible = False
28.         Label10.Visible = False
29.         Label11.Visible = False
30.         Label12.Visible = False
31.         Label13.Visible = False
32.         Label14.Visible = False
33.         Label15.Visible = False
34.         Label16.Visible = False
35.