Private Sub Command1_Click()
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
d = Val(Text4.Text)
Text5.Text = Str(a + b)
Text6.Text = Str(c + d)
If (a + b) > (c + b) Then Text7.Text = "Перших двох значень більша"
If (a + b) < (c + b) Then Text7.Text = "Останніх двох значень більша"
If (a + b) = (c + b) Then Text7.Text = "значення рівні"
End Sub