Forum Eks Grupy…

Private Sub CommandButton1_Click()
odp = Val(UserForm1.TextBox3.Text)
If odp = x * y Then
pkt = pkt + 2
ElseIf UserForm1.TextBox3.Text = " " Then
pkt = pkt
Else
pkt = pkt - 1
End If
UserForm1.TextBox3.Text = " "
UserForm1.TextBox4.Text = pkt
li = li + 1
UserForm1.TextBox5.Text = 2 * li
x = Round(Rnd())
y = Round(Rnd())
UserForm1.TextBox1.Text = x
UserForm1.TextBox2.Text = y