Imports System.ServiceProcess _ Partial Class EventLogLoaderService Inherits System.ServiceProcess.ServiceBase 'UserService переопределяет метод Dispose для очистки списка компонентов. _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub ' Главная точка входа процесса _ _ Shared Sub Main() Dim ServicesToRun() As System.ServiceProcess.ServiceBase ' В одном процессе может выполняться несколько служб NT. Для добавления ' службы в процесс измените следующую строку, ' чтобы создавался второй объект службы. Например, ' ' ServicesToRun = New System.ServiceProcess.ServiceBase () {New Service1, New MySecondUserService} ' ServicesToRun = New System.ServiceProcess.ServiceBase() {New EventLogLoaderService} System.ServiceProcess.ServiceBase.Run(ServicesToRun) End Sub 'Является обязательной для конструктора компонентов Private components As System.ComponentModel.IContainer ' Примечание: следующая процедура является обязательной для конструктора компонентов ' Для ее изменения используйте конструктор компонентов. ' Не изменяйте ее в редакторе исходного кода. _ Private Sub InitializeComponent() components = New System.ComponentModel.Container() Me.ServiceName = "EventLog loader service" End Sub End Class