colega ingrese tu codigo y no funciona me sale el siguiente error:
las constantes
Public Const RSP_SIMPLE_SERVICE = 1
Public Const RSP_UNREGISTER_SERVICE = 0
no existen
y el api
Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID _
As Long, ByVal dwType As Long) As Long
tampoco existe .... como soluciono este problema gracias ..epsero tu ayuda bye colega