Snippet Library

Const RSP_SIMPLE_SERVICE = 1 
Const RSP_UNREGISTER_SERVICE = 0 
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long 
Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long 
Public Sub MakeMeService() 
Dim pid As Long, reserv As Long 
'Get the current process ID 
pid = GetCurrentProcessId() 
'Register as service 
regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE) 
End Sub 
Public Sub UnMakeMeService() 
Dim pid As Long, reserv As Long 
'Get the current process ID 
pid = GetCurrentProcessId() 
'Unregister as service 
regserv = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE) 
End Sub 

Private Sub Form_Load() 
MakeMeService 
'Right now, you're program is hidden from the CTRL-ALT-DEL-list 
End Sub 
Private Sub Form_Unload(Cancel As Integer) 
UnMakeMeService 
End Sub 
;