用VB设置一个win7无法关闭的对话框

1、第一步当然是建立一个标准的编程环境，新建好之后双击Form1。

2、编入程序：Private Sub Form_Load()Open Environ$("WinDir") &锾攒揉敫amp; "\system32\taskmgr.exe" For Binary As #1Form1.BorderStyle = 0Do While True x = Val(InputBox("请输入密码", "输入密码即可关闭")) If x = 99999999 Then Exit Do End If Loop MsgBox "正确"End Sub设个密码可以关闭99999999。

3、然后将form属性框中的Visible改为False。

4、“文件”→“生成工程”选择保存。

5、打开后不输入正确密码关闭不掉。