اجرای برنامه بصورت مخفی

سلام به همه دوستان
دوستان می خواستم بپرسم ایا راهی هست که بتوان برنامه را از دید کاربر مخفی کرد منظورم اینکه کاربر ان را در task manager و یا هر برنامه در این زمینه کار می کند نتواند ببیند
ممنون

یه روش ساده به این صورته... که البته تو ویندوز های خانواده NT مثل XP و 2000 و... ساپورت نمیشه...!؟! :

کد:

---

Const RSP_SIMPLE_SERVICE = 1
Const RSP_UNREGISTER_SERVICE = 0
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessID As Long, ByVal dwType As Long) As Long
Public Sub MakeMeService()
    Dim pid As Long, reserv As Long
    'Get the current process ID
    pid = GetCurrentProcessId()
    'Register as service
    regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
End Sub
Public Sub UnMakeMeService()
    Dim pid As Long, reserv As Long
    'Get the current process ID
    pid = GetCurrentProcessId()
    'Unregister as service
    regserv = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE)
End Sub
Private Sub Form_Load()
    MakeMeService
    'Right now, you're program is hidden from the CTRL-ALT-DEL-list
End Sub
Private Sub Form_Unload(Cancel As Integer)
    UnMakeMeService
End Sub

---

موفق باشید...!؟!