Dim loWindowsService As WindowsService = New WindowsService() System.ServiceProcess.ServiceBase.Run(loWindowsService)