Public Class Tester
Public Shared Sub Main
Dim rightNow As Date = Now
Console.WriteLine("RightNow: " & rightNow.ToString)
' ----- Add time values.
Console.WriteLine("RightNow.AddHours(5): " & rightNow.AddHours(5))
Console.WriteLine("RightNow.AddMinutes(6): " & rightNow.AddMinutes(6))
Console.WriteLine("RightNow.AddSeconds(7): " & rightNow.AddSeconds(7))
Console.WriteLine("RightNow.AddMilliseconds(8000): " & rightNow.AddMilliseconds(8000))
End Sub
End Class