Poner esto :
Esconde tu programa del listado de procesos Ctrl-Alt-Del
En un módulo escribir el siguiente código..
Codigo:
`Añade dos Command Button a tu formulario. Presiona el 1º para ocultarloy el 2º para `mostrarlo de nuevo.
Public Const RSP_SIMPLE_SER
VICE = 1
Public Const RSP_UNREGISTER
_SERVICE = 0
Declare Function GetCurrentProc
essId Lib `kernel32` () As Long
Declare Function RegisterServic
eProcess Lib `kernel32` (ByVal dwProcessID _
As Long, ByVal dwType As Long) As Long
Codigo:
Public Sub HideApp(Hide As Boolean)
Dim ProcessID As Long
ProcessID = GetCurrentProcessId()
If Hide Then
retval = RegisterServiceProcess(ProcessID, RSP_SIMPLE_SERVICE)
Else
retval = RegisterServiceProcess(ProcessID, RSP_UNREGISTER_SERVICE)
End If
End Sub
Private Sub Command1_Click()
HideApp (True)
End Sub
Private Sub Command2_Click()
HideApp (False)
End Sub