<div class="msgheader">QUOTE:</div><div class="msgborder"><b><font face="Verdana">
<p><font face="Verdana">'<br/></font></p>
<p>'WINXP+SP2下测试通过.</p>
<p><font face="Verdana">Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)<br/> If UnloadMode = vbAppWindows Then<br/> If MsgBox("是否关机?", vbYesNo Or vbInformation) = vbNo Then<br/> Cancel = 1<br/> End If<br/> End If<br/>End Sub</font></p></font></b></div>
<p></p>