如果不想取消卸载操作，最终抛出Unload事件。使得用户有最后一次机会阻止窗体的
关闭。大多数情况下.应该利用这次机会提醒用户保存数据:
Dim Saved As Boolean’定义一个模块级变且
Private Sub Formes Unload(Cancel As Integer)
If Not Saved Then
MsgBox "Please save data first!"
Cancel-True
End If
End Sub
如果不想取消卸载操作，最终抛出Unload事件。使得用户有最后一次机会阻止窗体的
关闭。大多数情况下.应该利用这次机会提醒用户保存数据:
Dim Saved As Boolean’定义一个模块级变且
Private Sub Formes Unload(Cancel As Integer)
If Not Saved Then
MsgBox "Please save data first!"
Cancel-True
End If
End Sub