Visual Basic.NET - Requiero el codigo para crear un servicio de win

Saludos requeiro el codigo y ejemplo de para elaborar un servicio de windows, para ejecutarlo e instalarlo.

Muhcas gracias por la ayuda que puedan proporcionar

=)

En el VB2005 hay una platilla que dice Servicio de Windows cuando lo creeas te pone el siguiente codigo

Protected Overrides Sub OnStart(ByVal args() As String)
' Agregue el código aquí para iniciar el servicio. Este método debería poner
' en movimiento los elementos para que el servicio pueda funcionar.
End Sub

Protected Overrides Sub OnStop()
' Agregue el código aquí para realizar cualquier anulación necesaria para detener el servicio.
End Sub

tambien tienes el onContinue y onPause

despues para los instaladores le das boton derecho sobre la pagina de diseño y le pones en agregar instalador

en el Installer1.Designer.vb pones el siguiente codigo

me.ServiceProcessInstaller1.Account=ServiceProcess.ServiceAccount.LocalSystem

depues cuando tengas el release copias en la carpeta del release el siguiente archivo InstallUtil.exe

desde linea de comando te vas a la carpeta code esta el release y escribes

InstallUtil.exe nombreServicio.exe

para desinstalarlo seria asi -> InstallUtil.exe nombreServicio.exe /u

espero te sirva