Private Sub Form_QueryUnload(Cancel As Integer, _
  UnloadMode As Integer)
 
  ' Sicherheitsabfrage
  If MsgBox("Wirklich beenden?", vbQuestion + vbYesNo, _
    "Beenden") = vbNo Then
 
    ' Nicht beenden!
    Cancel = True
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de