[Taha Okla]

وعليكم السلام ورحمة الله وبركاته

كل TextBox من الـ TextBox التي تريد أن ينطبق عليها الكود حول اسمها إلى الاسم  (txtBox) مع رقمها 
أي : (txtBox1) - (txtBox2)  و هكذا  ..  (txtBox5) أو حتى لأي رقم كان..

و أي TextBox آخر لا تريد أن ينطبق عليه هذا الكود لا تغير اسمه ..

ثم استخدم هذا الكود..

كود :

       Dim grd As Double = CDbl(TextBox7.Text)

       For Each t1 As Control In Me.Controls
           If TypeOf (t1) Is TextBox Then
               If (Mid(t1.Name, 1, Len("txtBox")) = "txtBox") Then t1.Visible = False
               For i = 1 To grd
                   If t1.Name = "txtBox" & i Then
                       t1.Visible = True
                       t1.Text = Today.AddMonths(i)
                   End If
               Next
           End If
       Next