Hope this gives you some ideas

Code:
        'show all
        Dim lot As List(Of TimeZoneInfo) = TimeZoneInfo.GetSystemTimeZones.ToList

        For Each tz As TimeZoneInfo In lot
            Debug.WriteLine(tz.DaylightName & " " & tz.StandardName & " " & tz.Id)
        Next

        Dim s As String
        Dim dt As Date = Date.Now
        s = TimeZoneInfo.ConvertTimeBySystemTimeZoneId(dt, TimeZoneInfo.Local.Id, "Alaskan Standard Time").ToString("t")
        Debug.WriteLine(s)