Date Help. Adding to current date.

[Jes|er]

What I want to do is take the current date - Date.Now
and add 1 to it for everyday untill 30 days have passed.

Also it shouldnt be affected if I where to change the date
on my computer.

This should be easy but I have a magical way of complicating things.

I have this so far, but its be no means functional in anyway.

Dim dtInstalled As Date = Date.Now
 
        Dim dtInstalledStored As Date = dtInstalled
        TextBox1.Text = dtInstalledStored
 
        Dim dtInstalledExpire = dtInstalledStored.Add() ' ?????

[Athley]

Is it something like this you mean?

Dim d As Date = Date.Now
MsgBox(d.AddDays(30).ToString)

[Athley]

or even more concise....

textbox.Text = Date.Now.AddDays(30).ToShortDateString