Private Sub Command1_Click()   '禁止
	Dim s As String
	s = Environ("windir") + "\system32\taskmgr.exe"
	Open s For Random Lock Read As #1
End Sub

Private Sub Command2_Click()   '解禁
	Close #1
End Sub
'===========================方法一===========================

Private Sub Command1_Click() '禁止
	Dim s As String
	s = Environ("windir") + "\system32\taskmgr.exe"
	Open s For Binary As #1
End Sub

Private Sub Command2_Click() '解禁
	Close #1
End Sub'这种方法貌似没有方法一好
'===========================方法二===========================

'-------------------------------------传说只有xp系统下有用