Нужно просто поиграться с :
Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Public Declare Function GetCGetCurrentProcessIdurrentProcess Lib "kernel32" () As Long
Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long