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
    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")
    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

End Class