Module Example
Public Sub Main()
Dim thisTimeZone, zone1, zone2 As TimeZoneInfo
thisTimeZone = TimeZoneInfo.Local
zone1 = TimeZoneInfo.FindSystemTimeZoneById("Pacific Standard Time")
zone2 = TimeZoneInfo.FindSystemTimeZoneById("Eastern Standard Time")
Console.WriteLine(thisTimeZone.Equals(zone1))
Console.WriteLine(thisTimeZone.Equals(zone2))
End Sub
End Module