[RESOLVED] Old School Time Zone Info

Dim timeZone As TimeZoneInfo
For Each timeZone In TimeZoneInfo.GetSystemTimeZones
     Me.ComboBox1.Items.Add(timeZone.DisplayName)
Next

        Dim rKey As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\Time Zones\", True)
        For Each sName As String In rKey.GetSubKeyNames
            Dim regKey As RegistryKey = rKey.OpenSubKey(sName, True)
            ComboBox1.Items.Add(CType(regKey.GetValue("Display"), String))
        Next

        Dim arr As New ArrayList
        Dim rKey As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\Time Zones\", True)
        For Each sName As String In rKey.GetSubKeyNames
            Dim regKey As RegistryKey = rKey.OpenSubKey(sName, True)
            arr.Add(CType(regKey.GetValue("Display"), String))
        Next
        arr.Sort()
        For Each Str As String In arr
            ComboBox1.Items.Add(Str)
        Next

    Private Sub butConfigure_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles butConfigure.Click
        MessageBox.Show(Me.m_TimeZoneCollection.Item(DirectCast(Me.cboTimeZone.SelectedItem.ToString, String)).TimeZoneName)
        Shell(String.Format("Control.exe TIMEDATE.CPL,,/Z {0}", Me.m_TimeZoneCollection.Item(DirectCast(Me.cboTimeZone.SelectedItem.ToString, String)).TimeZoneName))

    End Sub

'Populates the TimeZoneCollection with the TimeZoneInformation and populates the TimeZone combobox
    Private Sub GetTimeZones()
        Dim arr As New ArrayList

        If m_TimeZoneCollection Is Nothing Then m_TimeZoneCollection = New TimeZoneInformationCollection

        Dim rKey As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows NT\CurrentVersion\Time Zones\", True)
        For Each sName As String In rKey.GetSubKeyNames
            Dim regKey As RegistryKey = rKey.OpenSubKey(sName, True)

            If Not (DirectCast(regKey.GetValue("Display"), String).IndexOf("Old") > -1) Then
               m_TimeZoneCollection.Add(DirectCast(regKey.GetValue("Display"), String), New TimeZoneInformation(DirectCast(regKey.GetValue("Display"), String), DirectCast(regKey.GetValue("STD"), String), regKey.Name, New TimeZoneInformation.DayLightSavingsTime(regKey.Name, DirectCast(regKey.GetValue("DLT"), String))))
                arr.Add(regKey.GetValue("Display"))
            End If
        Next

        arr = SortTimeZoneArray(arr)

        For Each Str As String In arr
            Me.cboTimeZone.Items.Add(Str)
        Next
    End Sub '/GetTimeZones

    'Sorts time zones to appear as they do in the Date/Time properties
    Private Function SortTimeZoneArray(ByVal FromArray As ArrayList) As ArrayList
        Dim PosArray As New ArrayList
        Dim NegArray As New ArrayList
        Dim GMTArray As New ArrayList
        Dim arrReturn As New ArrayList

        For Each item As String In FromArray
            If item.IndexOf("+") > -1 Then
                PosArray.Add(item)
            ElseIf item.IndexOf("-") > -1 Then
                NegArray.Add(item)
            Else
                GMTArray.Add(item)
            End If
        Next
        PosArray.Sort()
        NegArray.Sort() : NegArray.Reverse()
        GMTArray.Sort()

        For Each item As String In NegArray
            arrReturn.Add(item)
        Next
        For Each item As String In GMTArray
            arrReturn.Add(item)
        Next
        For Each item As String In PosArray
            arrReturn.Add(item)
        Next

        Return arrReturn
    End Function '/SortTimeZoneArray

Friend Class TimeZoneInformation

    'The DLT setting for this time zone
    Private m_DLST As DayLightSavingsTime
    'The name displayed in the combo box
    Private m_TimeZoneDisplay As String
    'The time zone name listed inside the registry location
    Private m_TimeZoneName As String
    'The registry location of the data
    Private m_TimeZoneRegistry As String

    'Initializes a new instance of the TimeZoneInformation class
    Public Sub New(ByVal TimeZoneDisplay As String, ByVal TimeZoneName As String, ByVal TimeZoneRegistry As String)
        m_TimeZoneDisplay = TimeZoneDisplay
        m_TimeZoneName = TimeZoneName
        m_TimeZoneRegistry = TimeZoneRegistry
        m_DLST = Nothing
    End Sub '/New

    'Initializes a new instance of the TimeZoneInformation class
    Public Sub New(ByVal TimeZoneDisplay As String, ByVal TimeZoneName As String, ByVal TimeZoneRegistry As String, ByVal DLST As DayLightSavingsTime)
        m_TimeZoneDisplay = TimeZoneDisplay
        m_TimeZoneName = TimeZoneName
        m_TimeZoneRegistry = TimeZoneRegistry
        m_DLST = DLST
    End Sub '/New

    'Used to hold the DST information
    Public Property DLST() As DayLightSavingsTime
        Get
            Return m_DLST
        End Get
        Set(ByVal Value As DayLightSavingsTime)
            m_DLST = Value
        End Set
    End Property '/DLST

    'The time zone name listed inside the registry location
    Public Property TimeZoneName() As String
        Get
            Return m_TimeZoneName
        End Get
        Set(ByVal Value As String)
            m_TimeZoneName = Value
        End Set
    End Property '/TimeZoneName

    'The registry location of the data
    Public Property TimeZoneRegistry() As String
        Get
            Return m_TimeZoneRegistry
        End Get
        Set(ByVal Value As String)
            m_TimeZoneRegistry = Value
        End Set
    End Property '/TimeZoneRegistry

    'Used to hold the DST information
    Friend Class DayLightSavingsTime

        'The time zone name listed inside the registry location
        Private m_TimeZoneName As String
        'The registry location of the data
        Private m_TimeZoneRegistry As String

        'Initializes a new instance of the DayLightSavingsTime class
        Public Sub New(ByVal TimeZoneRegistry As String, ByVal TimeZoneName As String)
            m_TimeZoneName = TimeZoneName
            m_TimeZoneRegistry = TimeZoneRegistry
        End Sub '/New

        'The time zone name listed inside the registry location
        Public Property TimeZoneName() As String
            Get
                Return m_TimeZoneName
            End Get
            Set(ByVal Value As String)
                m_TimeZoneName = Value
            End Set
        End Property '/TimeZoneName

        'The registry location of the data
        Public Property TimeZoneRegistry() As String
            Get
                Return m_TimeZoneRegistry
            End Get
            Set(ByVal Value As String)
                m_TimeZoneRegistry = Value
            End Set
        End Property '/TimeZoneRegistry
    End Class
End Class

Friend Class TimeZoneInformationCollection
    Inherits DictionaryBase

    'Holds the TimeZoneInformation class
    Private m_TimeZoneInformation As TimeZoneInformation

    'Returns the existance of the key in the dictionary
    Public Function Contains(ByVal key As String) As Boolean
        Return Dictionary.Contains(key)
    End Function '/Contains

    'Adds a new TimeZoneInformation instance into the dictionary
    Public Sub Add(ByVal key As String, ByVal value As TimeZoneInformation)
        Dictionary.Add(key, value)
    End Sub '/Add

    'Removes a key from the dictionary
    Public Sub Remove(ByVal key As String)
        Dictionary.Remove(key)
    End Sub '/Remove

    Default Public Property Item(ByVal key As String) As TimeZoneInformation
        Get
            Return CType(Dictionary(key), TimeZoneInformation)
        End Get
        Set(ByVal Value As TimeZoneInformation)
            Dictionary(key) = Value
        End Set
    End Property '/Item

    'Returns the selected TimeZoneInformation
    Public Property TimeZoneInformation() As TimeZoneInformation
        Get
            Return m_TimeZoneInformation
        End Get
        Set(ByVal Value As TimeZoneInformation)
            m_TimeZoneInformation = Value
        End Set
    End Property '/TimeZoneInformation
End Class