关于vb隐藏退出的问题

Question

怎么让vb程序运行后的退出消失？
比如，你要是不在某文本框中输入我是猪，就不能显示一个msgbox然后退出。
是我说得不准确，我的意思是，有一个vb程序，就想让它右上角小叉不见。要是不在某文本框里输入某文字，就不能退出

Answer 1

这段代码可以使关闭按钮变成灰色，不能点击。
Private Declare Function GetSystemMenu Lib "User32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "User32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function DrawMenuBar Lib "User32" (ByVal hwnd As Long) As Long
Private Declare Function GetMenuItemCount Lib "User32" (ByVal hMenu As Long) As Long
Private Const MF_BYPOSITION = &H400&

Private Sub Form_Load()
Dim hMenu As Long, nCount As Long
hMenu = GetSystemMenu(Frm.hwnd, 0)
nCount = GetMenuItemCount(hMenu)
Call RemoveMenu(hMenu, nCount - 1, MF_BYPOSITION)
DrawMenuBar Frm.hwnd
End Sub

Answer 2

如果你没有写退出提示的东西 就不会弹出MSG

如果有MSG 就因为你写了！~ 所以把那段代码去掉就可以！~

如果需要帮你改 把代码贴上来！~

Answer 3

估计您要这个东东
复制到一个文本中,后缀名改为VBS,运行就可以了
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -r -t 10 -c ""说我是猪，不说我是猪就十秒关你机，不信，试
试···"" ",0 ,true
dim a
do while(a "我是猪")
a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾"