[b][SIZE=5][SIZE=4]السلام عليكم
حسب ما فهمت من موضوعك أنك تريد أن تظهر textbox معين بإعطاء رقمه في أداة نص أخرى، وكلما غيرت الرقم يظهر فقط textbox المطلوب ويختفي الذي كان قد ظهر قبله، فإذا كان الحال كذلك فأقترح عليك أن تضع على الفورم مجموعة من أدوات النص Text2(0) ,text2(1),text2(3) اجعل الخاصية لهذه الأدوات visible=False وضع زر Command1 وأداة TextBox1لإدخال الرقم وتكتب هذا الكود المبسط جدا
حسب ما فهمت من موضوعك أنك تريد أن تظهر textbox معين بإعطاء رقمه في أداة نص أخرى، وكلما غيرت الرقم يظهر فقط textbox المطلوب ويختفي الذي كان قد ظهر قبله، فإذا كان الحال كذلك فأقترح عليك أن تضع على الفورم مجموعة من أدوات النص Text2(0) ,text2(1),text2(3) اجعل الخاصية لهذه الأدوات visible=False وضع زر Command1 وأداة TextBox1لإدخال الرقم وتكتب هذا الكود المبسط جدا
كود :
[align=left][SIZE=4]Dim I, a
Private Sub Command1_Click()
Text2(a).Visible = False 'هذا لإخفاء التكست الظاهر
I = Val(Text1) 'لإدخال رقم التكست الذي تريد إظهاره
Text2(I).Visible = True '
Text2(I) = I 'لإظهار رقم التكست الذي طلبته
a = Val(Text2(I)) ' حفظ رقم التكست الظاهر
End Sub[/SIZE][/SIZE][/SIZE][/b]
[/align]