如何实现关闭窗体时判断，如果条件符合就中断，就是不让关闭的功能。

例如：

如果text1.text=0

点程序右上叫的X时可以关闭

如果大于0，点关闭的时候要提示，并且不关闭窗体。

实现很简单：只要在unload事件中，添加cancel=-1，即可。

代码如下：

Private Sub Form_Unload(Cancel As Integer)
    If Val(Text1.Text) > 0 Then
        MsgBox "不许关闭！", vbCritical, "温馨提示"
        Cancel = -1
        Exit Sub
    End If
End Sub    

end