1: 2: 3: 4: 5: 6:
Dim Dt As DateTime = DateTime.Now() Dim dtTomorrow As DateTime dtTomorrow = Dt.AddDays(1) TextBox1.Text = dtTomorrow.ToShortDateString