实现功能：将您的程序从Windows的任务管理器进程列表中隐藏(即CTRL+ALT+DEL出来的框)

　　①复制以下代码到一模块中

　　Declarations
　　Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long
　　Public Declare Function GetCurrentProcess Lib "kernel32" () As Long
　　Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
　　Public Const RSP_SIMPLE_SERVICE = 1
　　Public Const RSP_UNREGISTER_SERVICE = 0

　　②隐藏代码

　　Public Sub MakeMeService()
　　Dim pid As Long
　　Dim reserv As Long
　　pid = GetCurrentProcessId()
　　regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
　　End Sub

　　③恢复隐藏代码

　　Public UnMakeMeService()
　　Dim pid As Long
　　Dim reserv As Long
　　pid = GetCurrentProcessId()
　　regserv = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE)
　　End Sub