بزرگترین عدد موجود در Caption لیبل ها

[good_boy]

سلام
میشه بگید اگه روی فرم 10 تا label داشته باشیم و کپشن هر کدام یک عدد داشته باشه چطور میشه مشخص کرد بزرگترین کدام است؟
من چند روش امتحان کردم نشد
با تشکر

[isaac23]

این سورس میاد یک کادر پیغام باز میکنه 3 عدد میگیره و بزرگترین رو نشون میده
Dim a(3) As Integer
For i = 0 To UBound(a)
a(i) = InputBox("")
Next
Max = a(0)
For i = o To UBound(a)
If Max < a(i) Then Max = a(i)

Next
MsgBox (Max)

[good_boy]

حالا چطور باید کپشن ها رو بدم بهش
خط 6 اون o یا 0 ?

[SlowCode]

حالا چطور باید کپشن ها رو بدم بهش
خط 6 اون o یا 0 ?

برای مثال:
اگر اسم لیبل هات مساوی هست و بهشون ایندکس دادی:
label(0).caption=a(0)
درغیراینصورت:
label1.caption=a(1)


خط 6 اون o یا 0 ?
صفر هست، اون خط میگه از صفر تا 3 این کدها رو اجرا کن، جمعا 4 بار اجرا میشه حلقه.

[good_boy]

سلام
کار UBound چیست؟

[vbhamed]

سلام
UBound اندیس بالای آرایه و LBound اندیس پایین اون رو مشخص می‌کنه