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