Tenes que utilizar el objeto App . En este momento no estoy en mi maquina y no tengo visual basic, pero si pones App. te va desplegar la lista de opciones disponibles, revisa y lo vas a encontrar..es facil
Public Const RSP_SIMPLE_SERVICE = 1
Public Const RSP_UNREGISTER_SERVICE = 0
Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long