Imports System.IO
Module Module1
Sub Main()
Dim Dt As DateTime = Now()
Dim NewDT As DateTime = Now()
Console.WriteLine("Current date and time: " & Dt)
NewDT = NewDT.AddHours(5)
Console.WriteLine("Five hours from now is: " & NewDT)
End Sub
End Module