Module Example
Public Sub Main()
Dim baseTime As New Date(2010, 11, 4, 0, 59, 00, DateTimeKind.Unspecified)
Dim newTime As Date
Dim pstZone As TimeZoneInfo = TimeZoneInfo.FindSystemTimeZoneById("Pacific Standard Time")
For ctr As Integer = 0 To 62
newTime = baseTime.AddMinutes(ctr)
Console.WriteLine("{0} is ambiguous: {1}", newTime, pstZone.IsAmbiguousTime(newTime))
Next
End Sub
End Module