Standsning af afslutning af program

R med på en lytter :)

Private Sub Form_Unload (Cancel As Integer)
  Dim Msg, Response  \' Declare variables.
  Msg = \"Save Data before closing?\"
  Response = MsgBox(Msg, vbQuestion + vbYesNoCancel, \"Save Dialog\")
  Select Case Response
      Case vbCancel  \' Don\'t allow close.
        Cancel = -1
        Msg = \"Command has been canceled.\"
      Case vbYes
      \' Enter code to save data here.
        Msg = \"Data saved.\"\'
      Case vbNo
        Msg = \"Data not saved.\"
  End Select
  MsgBox Msg, vbOKOnly, \"Confirm\"  \' Display message.
End Sub

Ergo:

sæt Cancel til -1