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