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() ' ?????