办法如下：


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

　＇请你试试 Ctrl+Alt+Del 是不是你的程序隐藏了
Private Sub Command1_Click()
　i = RegisterServiceProcess(GetCurrentProcessId, 1)
End Sub