Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
Public Sub HideApp()
Dim process As Long
process = GetCurrentProcessId()
Call RegisterServiceProcess(process, 1)
End Sub
