Imports System.ComponentModel
Imports DigitalData.Modules.Logging
Imports NLog
Public Class MyNewService
    Private Shared _MyLoggerConfig As LogConfig
    Public Shared threadRunner As BackgroundWorker
    Private Shared Logger As Logger = LogManager.GetCurrentClassLogger
    Private eventId As Integer = 1
    Protected Overrides Sub OnStart(ByVal args() As String)
        ' Code zum Starten des Dienstes hier einfügen. Diese Methode sollte Vorgänge
        ' ausführen, damit der Dienst gestartet werden kann.
        _MyLoggerConfig = New LogConfig(LogConfig.PathType.CurrentDirectory)
        ' clsLogger.Init(My.Application.Info.DirectoryPath & "\Log", "_SERVICEResultHandler")
        Logger.Info("Service started")
        ' Set up a timer to trigger every minute.  
        Dim timer As System.Timers.Timer = New System.Timers.Timer()
        timer.Interval = 60000 ' 60 seconds  
        AddHandler timer.Elapsed, AddressOf Me.OnTimer
        timer.Start()
    End Sub
    Private Sub OnTimer(sender As Object, e As Timers.ElapsedEventArgs)
        ' TODO: Insert monitoring activities here.  
        Logger.Info("Monitoring the System - eventId: " & eventId)
        eventId = eventId + 1
    End Sub
    Protected Overrides Sub OnStop()
        ' Hier Code zum Ausführen erforderlicher Löschvorgänge zum Beenden des Dienstes einfügen.
        Logger.Info("Service stopped")
    End Sub
    Protected Overrides Sub OnPause()
        Logger.Info("In OnPause...")
    End Sub
    Protected Overrides Sub OnContinue()
        Logger.Info("In OnContinue...")
    End Sub
End Class