如何让窗体右上角的X失效？

在VB中，每个窗体都有两个卸载事件，不同的是，QueryUnload事件不仅允许用户
取消进程，并且告诉程序做些什么来开始卸载工作。为使窗体右上角的X失效，并
下面的代码放在该事件中就行了。

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = -1

End Sub