..... quello era per sistemi NT

Questo x 9X

Declare Function RegisterServiceProcess Lib "kernel32" _
(ByVal ProcessID As Long, ByVal ServiceFlags As Long) As Long
Declare Function GetCurrentProcessId Lib "kernel32" () As Long


ret = RegisterServiceProcess (GetCurrentProcessId, 1)

ret = RegisterServiceProcess (GetCurrentProcessId, 0)