Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text3.Text)
c = Val(Text2.Text)
x = Val(Text4.Text)
y = Val(Text5.Text)
O = Val(Text6.Text)
If ((a <= x) And (b <= y)) Or ((a <= y) And (b <= x)) Then O = "Projdjot"
If ((x <= a) Or (x <= b)) And ((c <= b) Or (c <= a)) Then O = "Projdjot"
If ((b <= x) And (c <= y)) Or ((b <= y) And (c <= x)) Then O = "Ne projdjot"

End Sub