VB 怎样禁止一个程序结束？

如果你是要禁止VB程序本身被关闭，只要设置Form的Cancel 就可以了

简单演示：在一个窗体上画一个CheckBox，复制下面代码，运行就可以看见效果了

Private Sub Form_Load()
Check1.Caption = "禁止结束"
Check1.Value = vbChecked
End Sub

Private Sub Form_Unload(Cancel As Integer)
Cancel = IIf(Check1.Value = vbChecked, 1, 0)
End Sub

在QueryUnload中放入判断语句，Cancel = 0退出，=1不退出
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If QuitForbiten = True Then
MsgBox "程序正在运行，不可退出！", vbInformation, "提示"
Cancel = 1
End If
End Sub

不明白你的意思