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