[Taha Okla]

وهذا كود آخر إن فهمته فهو أفضل، ولكن الأول هو أبسط للفهم :

كود :

       Dim RealFromDate = New DateTime(DateTimePicker1.Value.Year, DateTimePicker1.Value.Month, 1)

       Dim x As Integer

       While RealFromDate <= DateTimePicker2.Value

           For Each c As TextBox In Me.Controls.OfType(Of TextBox)()
               x = Val(Replace(c.Name, "TextBox", ""))
               If x = Val(RealFromDate.ToString("MM")) Then
                   c.Text = RealFromDate.ToString("MMMM")
               End If
           Next

           RealFromDate = RealFromDate.AddMonths(1)
       End While