Private Info As Management.ManagementObject
 
    Private Function GetCompTimeZone() As String
        Dim strTemp As String = ""
        Dim intTemp As Integer = 0
 
        Try
            Dim Query As New Management.SelectQuery("Win32_ComputerSystem")
            Dim Search As New Management.ManagementObjectSearcher(Query)
            Dim intIndex As Integer = 0
            For Each Info In Search.Get()
                Application.DoEvents()
                If Info("CurrentTimeZone") IsNot Nothing Then
                    intTemp = CInt(Info("CurrentTimeZone"))
                    strTemp = CStr(intTemp / 60)
                End If
            Next
        Catch
            strTemp = ""
        End Try
 
        Return strTemp
 
    End Function
 
    Public ReadOnly Property CompTimeZone() As String
        Get
            On Error Resume Next
            CompTimeZone = GetCompTimeZone()
        End Get
    End Property

mfgMeik MillerMein beste Code:If then