Public Function GetDayLight() As Boolean
 
        Dim mQuery As Management.WqlObjectQuery
        Dim mSearch As Management.ManagementObjectSearcher
        Dim mCol As Management.ManagementObject
        Dim mStrSQL As String
        Dim mErg As Boolean
 
        mStrSQL = "select * from Win32_ComputerSystem"
        mQuery = New Management.WqlObjectQuery(mStrSQL)
        mSearch = New Management.ManagementObjectSearcher(mQuery)
        For Each mCol In mSearch.Get()
            mErg = CBool(mCol("DaylightInEffect"))
        Next
        Return mErg
 
    End Function

            Dim Hour = CDbl(CompTimeZone)
            If ckbSommerzeit.Checked = True Then
                If GetDayLight() = True Then
                    Hour += 1
                End If
            End If

         Dim   Hour = CDbl(CompTimeZone)
            If ckbSommerzeit.Checked = False Then
                If GetDayLight() = True Then
                    Hour -= 1
                End If
            End If

            If cmbZeitzone.Text = "Universale Zeit" Then
                Hour = 0
            End If
            If cmbZeitzone.Text = "(GMT-12:00) Internationale Datumsgrenze (" & _
              "Westen)" Then
                Hour = -12
            End If
            If cmbZeitzone.Text = "(GMT-11:00) Midway-Inseln, Samoa" Then
                Hour = -11
            End If
            If cmbZeitzone.Text = "(GMT-10:00) Hawaii" Then
                Hour = -10
            End If
            If cmbZeitzone.Text = "(GMT-09:00) Alaska" Then
                Hour = -9
            End If
            If cmbZeitzone.Text = "(GMT-08:00) Tijuana, Los Angeles, Seattle," & _
              "Vancouver" Then
                Hour = -8
            End If
            If cmbZeitzone.Text = "(GMT-07:00) Arizona" Then
                Hour = -7
            End If
            If cmbZeitzone.Text = "(GMT-06:00) Chicago, Dallas, Kansas City," & _
              "Winnipeg" Then
                Hour = -6
            End If
            If cmbZeitzone.Text = "(GMT-05:00) New-York, Miami, Atlanta," & _
              "Detroit, Toronto" Then
                Hour = -5
            End If
            If cmbZeitzone.Text = "(GMT-04:00) Montreal, Quebec" Then
                Hour = -4
            End If
            If cmbZeitzone.Text = "(GMT-03:00) Grönland" Then
                Hour = -3
            End If
            If cmbZeitzone.Text = "(GMT-02:00) Mittelatlantik" Then
                Hour = -2
            End If
            If cmbZeitzone.Text = "(GMT-01:00) Kapverdische Inseln" Then
                Hour = -1
            End If
            If cmbZeitzone.Text = "(GMT) Dublin, Lissabon, London" Then
                Hour = 0
            End If
            If cmbZeitzone.Text = "(GMT+01:00) Amsterdam, Berlin, Bern, Rom," & _
              "Stockholm, Wien" Then
                Hour = 1
            End If
            If cmbZeitzone.Text = "(GMT+02:00) Athen, Istanbul, Minsk" Then
                Hour = 2
            End If
            If cmbZeitzone.Text = "(GMT+03:00) Moskau, St.Petersburg," & _
              "Wolgograd" Then
                Hour = 3
            End If
            If cmbZeitzone.Text = "(GMT+04:00) Abu Dhabi, Muskat" Then
                Hour = 4
            End If
            If cmbZeitzone.Text = "(GMT+05:00) Jekaterinburg" Then
                Hour = 5
            End If
            If cmbZeitzone.Text = "(GMT+06:00) Almaty, Nowosibirsk" Then
                Hour = 6
            End If
            If cmbZeitzone.Text = "(GMT+07:00) Bangkok, Hanoi, Jakarta" Then
                Hour = 7
            End If
            If cmbZeitzone.Text = "(GMT+08:00) Peking, Chongqing, Hongkong," & _
              "Urumchi" Then
                Hour = 8
            End If
            If cmbZeitzone.Text = "(GMT+09:00) Osaka, Sapporo, Tokyo" Then
                Hour = 9
            End If
            If cmbZeitzone.Text = "(GMT+10:00) Wladiwostok" Then
                Hour = 10
            End If
            If cmbZeitzone.Text = "(GMT+11:00) Magadan, Solomonen," & _
              "Neukaledonien" Then
                Hour = 11
            End If
            If cmbZeitzone.Text = "(GMT+12:00) Auckland, Wellington" Then
                Hour = 12
            End If
            If cmbZeitzone.Text = "(GMT+13:00) Nuku´alofa" Then
                Hour = 13
            End If

mfgMeik MillerMein beste Code:If then