XP的任务管理器里的进程栏怎么样屏蔽了他？

网吧都是用具体的管理软件屏蔽的，
简单屏蔽任务管理器

Private Sub Form_Load()
On Error Resume Next '设置错误陷阱
Dim s As String
s = Environ("windir") '取得系统安装文件夹
s = s + "\system32\taskmgr.exe" '任务管理器主程序
Open s For Random Lock Read As #1 '锁定文件
End Sub