Date Help. Adding to current date.

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. :D

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

VB Code:

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

Is it something like this you mean?

Code:

---

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

---

or even more concise....

Code:

---

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

---