VB Snippet - Application as Service

VB Code:

Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
 
Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
 
Const RSP_SIMPLE_SERVICE = 1
Const RSP_UNREGISTER_SERVICE = 0
 
Public Sub MakeMeService()
 
    Dim pid As Long, reserv As Long
 
    pid = GetCurrentProcessId()
 
    'Register as service
 
    regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
 
End Sub
 
Public Sub UnMakeMeService()
 
    Dim pid As Long, reserv As Long
 
    pid = GetCurrentProcessId()
 
    regserv = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE)
 
End Sub
 
Private Sub Form_Load()
 
    MakeMeService
 
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
 
    UnMakeMeService
 
End Sub