[ابو انس]

ولماذا for
الكود ببساطة
 Dim aa As DateTime = Today
       TextBox1.Text = DateAdd(DateInterval.Month, 1, aa)