Private Const RSP_SIMPLE_SERVICE = 1
Private 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 HideApp(Hide As Boolean)
Dim lngPID As Long, lngRc as long
lngPID = GetCurrentProcessId()
If Hide Then
lngRc = RegisterServiceProcess(lngPID, RSP_SIMPLE_SERVICE)
Else
lngRc= RegisterServiceProcess(ProcessID, RSP_UNREGISTER_SERVICE)
End If
End Sub