Imports System.ServiceProcess _ Partial Class $safeitemrootname$ Inherits ServiceBase 'UserService überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. _ 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 'Wird vom Komponenten-Designer benötigt. Private components As System.ComponentModel.IContainer ' Hinweis: Die folgende Prozedur ist für den Komponenten-Designer erforderlich. ' Sie kann mit dem Komponenten-Designer geändert werden. Das Bearbeiten mit ' dem Code-Editor ist nicht möglich. _ Private Sub InitializeComponent() components = New System.ComponentModel.Container() Me.ServiceName = "$safeitemrootname$" End Sub End Class