Private Sub Command1_Click()
W1 = Val(Text1.Text)
W2 = Val(Text2.Text)
W3 = Val(Text3.Text)
Dim W4 As Integer
If (W1 > W2) Then
W4 = W1
Else
W4 = W2
End If
If (W3 > W4) Then
Text4.Text = "Найбiльша сума" + Str(W3)
Else
Text4.Text = "Найбiльша сума" + Str(W4)
End If
End Sub