好多软件，当你关闭时，它回提醒你是否关闭，“是”则关闭，“否”则什么也不做。那用VB怎么实现这个功能呢？
当你点击窗体上的“小叉”时，触发的是什么事件啊？能否从这里做？
各位出个主意啊？

Query_Unload事件

在unload里
If MsgBox(ys, vbYesNo) = vbNo Then
Cancel = True
Else
Cancel = False
End If

Private Sub Form_Unload(Cancel As Integer)
msg1 = "D1.FileTitleµÄÎÄ×ÖÒѾ­¸Ä±ä¡£" + vbCrLf + "Ïë±£´æÎļþÂð£¿"
x = MsgBox(msg1, vbYesNoCancel)
If x = 6 Then
f3_Click
ElseIf x = 2 Then
Cancel = True
Exit Sub
End If
End Sub


搞定了！多谢给位了！！