[محمد كريّم]

كود :

       Dim AllowedNumbers As String() = {"0", "4", "8"} ' الأرقام المسموح بادخالها

' استبدل كلمة Me في السطر التالي باسم الأداة التي تحتوي على مربعات النص العشرين
' مثلا لو كانوا في بانل اسمها panel1 استخدم هذا الاسم
       For Each ctrl As Control In Me.Controls
           If (ctrl.GetType() Is GetType(TextBox)) Then

               Dim txt As TextBox = CType(ctrl, TextBox)
               If Not AllowedNumbers.Contains(txt.Text) Then
                   MsgBox("القيمه المدخله خاطئه")
               End If

           End If
       Next