Module Example
Public Sub Main()
Dim date1 As Date
Dim timeZone As TimeZoneInfo
Console.WriteLine("The time is {0:t} on {0:d} {1}", _
date1, _
IIf(timeZone.IsDaylightSavingTime(date1), _
timezone.DaylightName, timezone.StandardName))
End Sub
End Module