>myDate.AddSeconds(i)

I need some adjustments here based on that approach. Do you see what is wrong?

        Dim lnDateAsTicks As Double = 0
        Dim ldNewDate As Date
        Dim ldDate As Date = Date.Now
        MessageBox.Show(ldDate.ToString)
        lnDateAsTicks = ldDate.Ticks
        ldNewDate.AddSeconds(lnDateAsTicks)
        MessageBox.Show(ldNewDate.ToString)

I can get the lnDateAsTicks. But, when I try to add that number of ticks to an empty date value, I end up with an error.