max=val(text1(0).text)
For i=0 to 14
If (max<val(text1(i).text)) then
max=val(text1(i).text)
End if
next i
label1.caption=max