Module Example
Public Sub Main()
Dim date1 As New Date(2010, 3, 14, 2, 30, 0, DateTimeKind.Local)
Console.WriteLine("Invalid time: {0}",TimeZoneInfo.Local.IsInvalidTime(date1))
Dim utcDate1 As Date = date1.ToUniversalTime()
Dim date2 As Date = utcDate1.ToLocalTime()
Console.WriteLine("{0} --> {1}", date1, date2)
End Sub
End Module