Private Sub m_Timer_Elapsed(ByVal sender As Object, ByVal e As _
  System.Timers.ElapsedEventArgs) Handles m_Timer.Elapsed
 
        Me.m_Timer.Enabled = False
        Me.m_Timer.Stop()
        ' Meldung anzeigen + Computer herunterfahren
        'MessageBox.Show("10 Sekunden sind um.")
        'System.Diagnostics.Process.Start("shutdown.exe", "-s -t 60")
 
        CLog.GetSingleton.Log("Timer ist fertig (122)", "m_timer ist FERTIG", _
          "", enuLogTyp.Debug, enuLogLevel.ApplError)
        'System.Diagnostics.Process.Start( 
        ' "C:\Projekte\shutdown\ShutdownFromService\ShutdownFromService\bin\De" & _
        "ug\ShutdownFromService.exe")
        'System.Diagnostics.Process.Start("shutdown.exe", "-s -t 60")
        Try
 
            'My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE", 
            ' True).CreateSubKey("Utz").SetValue("Test", "Nothing")
 
            Dim regKey As RegistryKey
            regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE", True)
            regKey.CreateSubKey("XOR")
            regKey.SetValue("Value", "Nothing", _
              Microsoft.Win32.RegistryValueKind.String)
 
 
        Catch ex As Exception
            CLog.GetSingleton.Log("REGISTRY KEY in LocalMachine", ex.Message, _
              "", enuLogTyp.Debug, enuLogLevel.ApplError)
        End Try