[VB_Coder]

السلام عليكم

- إستخدم الكود الرائع لأخي ناجي إبراهيم :

كود :

Private Sub Command1_Click()

Dim I As Integer

I = 1000

Controls("Text" & CStr(I)).Visible = True
MsgBox Me.Controls("Text" & CStr(I)).Text

End Sub

- تحياتي .