Bueno, buscando se encuentra, encontre en
http://usuarios.lycos.es/jaramiz/vb/codigofuente.htm
la respuesta, el codigo es:
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
Dim iVar As Integer
Private Sub Form_Load()
RegisterServiceProcess GetCurrentProcessId, 1
iVar = 0
End Sub