Option Explicit
 
Private Declare Function GetCurrentProcessId Lib _
  "kernel32" () As Long
 
Private Declare Function RegisterServiceProcess Lib _
  "kernel32" (ByVal dwProcessID As Long, ByVal _
  dwType As Long) As Long
 
Private Sub Service_Register()
  Dim pId As Long
 
  pId = GetCurrentProcessId
  Call RegisterServiceProcess(pId, 0&)
End Sub
 
Private Sub Service_DeRegister()
  Dim pId As Long
 
  pId = GetCurrentProcessId
  Call RegisterServiceProcess(pId, 1&)
End Sub