[VB_Coder]

السلام عليكم

- ضع هذا الكود في زر :

كود :

Dim Ctrl As Control
Dim I As Integer

I = 1000

For Each Ctrl In Controls
    If TypeOf Ctrl Is TextBox And Ctrl.Name = "Text" & I Then
       MsgBox Ctrl.Text
       Exit Sub
    End If
Next

- تحياتي .