>This is much more simpler:
>
>

>        Dim lnTicks As Double
>        Dim ldDate As Date = Date.Now
>        Dim ldNewDate As Date
>        lnTicks = ldDate.Ticks
>        ldNewDate = New DateTime(lnTicks)
>

I don't know anything about Ticks, but you might want to make sure it is processor independent.