vb 屏蔽任务管理器

vb中屏蔽任务管理器，我这里有一段代码，亲自试验过的，整人还挺好使的。呵呵
Option Explicit

Private Sub Command1_Click()
Dim mfile As String
mfile = VBA.Environ("windir")
mfile = mfile & "\system32\taskmgr.exe"
Open mfile For Input Lock Read Write As #1
End Sub

Private Sub Command2_Click()
Close #1
End Sub