禁止使用Alt+F4关闭窗体

阿杰

<p>Private Sub Form_Load()<br/>&nbsp;&nbsp;&nbsp;&nbsp;Me.KeyPreview = True<br/>End Sub<br/><br/><br/>Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)<br/><br/><br/>&nbsp;&nbsp;&nbsp;&nbsp;If (Shift = vbAltMask) Then<br/><br/><br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Select Case KeyCode<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Case vbKeyF4<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;KeyCode = 0<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;End Select<br/>End If<br/>End Sub</p>