Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  On Error Resume[color=blue] Next
  [/color][color=green]
  ' MsgBox "Tastencode: " & KeyCode & vbNewLine & "Shift/Alt/Strg-Status: " & 
  ' Shift
  [/color]
  ' Alt+F4 nicht zulassen
  If KeyCode = 115 And Shift = 4 Then
 
    ' Nachricht ausgeben
    MsgBox "Schließen Sie das Fenster bitte mit einem Klick auf das X in der" & _
      "Titelleiste."
 
    ' Status der gedrückten Taste(n) aufheben
    KeyCode = 0
 
  End If
 
End Sub

Viel Spass,
R@lf