[Taha Okla]

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

هذا الكود بشكل مفصل (ولكن لا تنسى تعديل مكان تموضع التكست بوكس كل واحدة تحت الرقم الذي يشير إليها) :

كود :

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

       While RealFromDate <= DateTimePicker2.Value
           'MsgBox(RealFromDate.ToString(" MMM"))

           Select Case Val(RealFromDate.ToString("MM"))
               Case 1
                   TextBox1.Text = RealFromDate.ToString("MMMM")
               Case 2
                   TextBox2.Text = RealFromDate.ToString("MMMM")
               Case 3
                   TextBox3.Text = RealFromDate.ToString("MMMM")
               Case 4
                   TextBox4.Text = RealFromDate.ToString("MMMM")
               Case 5
                   TextBox5.Text = RealFromDate.ToString("MMMM")
               Case 6
                   TextBox6.Text = RealFromDate.ToString("MMMM")
               Case 7
                   TextBox7.Text = RealFromDate.ToString("MMMM")
               Case 8
                   TextBox8.Text = RealFromDate.ToString("MMMM")
               Case 9
                   TextBox9.Text = RealFromDate.ToString("MMMM")
               Case 10
                   TextBox10.Text = RealFromDate.ToString("MMMM")
               Case 11
                   TextBox11.Text = RealFromDate.ToString("MMMM")
               Case 12
                   TextBox12.Text = RealFromDate.ToString("MMMM")
           End Select

           RealFromDate = RealFromDate.AddMonths(1)
       End While