[VB_Coder]

السلام عليكم

- إذا كنت تريد إظهار التكست الذي تريد وضع فيه القيمه فقط والباقيه تكون مخفيه , فأستعمل الكود التالي :

كود :

Dim I as Integer

For I = 0 To 100
Text1(I).Visible = False
Next

Text1(Val(Text2.Text)).Visible = True
Text1(Val(Text2.Text)).Text = "12000"

- أما إذا أردت وضع القيمة مباشرة من غير إخفاء أو إظهار للتكستات , فهذا يكفي :

كود :

Text1(Val(Text2.Text)).Text = "12000"

- تحياتي .