VB Code:
  1. Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long

  2.  
  3. Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long

  4.  
  5. Const RSP_SIMPLE_SERVICE = 1

  6. Const RSP_UNREGISTER_SERVICE = 0

  7.  
  8. Public Sub MakeMeService()

  9.  
  10.     Dim pid As Long, reserv As Long

  11.  
  12.     pid = GetCurrentProcessId()

  13.  
  14.     'Register as service

  15.  
  16.     regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)

  17.  
  18. End Sub

  19.  
  20. Public Sub UnMakeMeService()

  21.  
  22.     Dim pid As Long, reserv As Long

  23.  
  24.     pid = GetCurrentProcessId()

  25.  
  26.     regserv = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE)

  27.  
  28. End Sub

  29.  
  30. Private Sub Form_Load()

  31.  
  32.     MakeMeService

  33.  
  34. End Sub

  35.  
  36. Private Sub Form_Unload(Cancel As Integer)

  37.  
  38.     UnMakeMeService

  39.  
  40. End Sub