[sooriaty03]

أخي الكريم
تفضل هذا هو الكود

كود :

For Each Ctl1 In Me.Controls.OfType(Of TextBox)()
            If Ctl1.Name.EndsWith("s") Then
                ListBox1.Items.Add(Ctl1.Name)
            End If
        Next