DisableAltF4

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If (Shift = vbAltMask) Then
Select Case KeyCode
Case vbKeyF4
KeyCode = 0
End Select
End If
End Sub