Private Sub Form_Unload(Cancel As Integer)
 prompt$ = "Möchten Sie wirklich beenden?"
    reply = MsgBox(prompt$, vbOKCancel, "FastControl")
    If reply = vbOK Then
        Unload Form1
    End If
End Sub

___________
muh