Question

求禁止关闭某程序的vb代码？

也就是不能点击窗体右上角的关闭按钮

那会隐藏进程的代码呢？

Answer 1

那你的程序在按上关闭按钮后需要有什么动作呢？如果是要让关闭按钮失效的话可以加上这些语句：
Private Sub Form_Unload(Cancel As Integer)
Cancel = 1 '＝0时就可以关闭程序了。
End Sub

如果是按关闭按钮实现最小化的话要用API了，如下
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
I = ShowWindow(Me.hwnd, 6)
Cancel = 1
End Sub

Answer 2

只要
设定unload事件，让cancel=ture.
要退出可以用end来