[alimse]

هو ده الحل

كود :

Dim ctl5 As Control
        Dim a As String
        Dim b As Integer
        For Each ctl5 In Me.Controls

            If TypeOf ctl5 Is TextBox Then
                a = Convert.ToString(ctl5.Name)
                b = Len(a)
                If (Mid(a, b, 1)) = "s" Then
                    ctl5.Text = ""
                    ListBox1.Items.Add(ctl5.Name)
                End If
            End If

        Next