哪位高手帮忙解答一下

[zhoutengxiao]

就是有两个textbox控件textbox1,textbox2,让第一个textbox控件输入今天的日期，怎样让第二个textbox控件自动填入下一个月的当天日期值？谢谢了

[a854468521]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'获得当前日期
Dim Today As Date = Now.Date
'在TextBox1显示当前日期
Me.TextBox1.Text = Today.ToLongDateString
'在TextBox2显示下月日期
Me.TextBox2.Text = Today.AddMonths(1).ToLongDateString

End Sub

[zhoutengxiao]

谢谢您了，我的问题终于解决了