'Listing 22.2  22LIST02.TXT --- Zaniedbanie uycia instrukcji warunkowej jako przyczyna bdu.


Private Sub Form_Unload(Cancel As Integer)
  ' Niezerowa wyjciowa warto parametru Cancel spowoduje powstrzymanie
  ' Visual Basica od usunicia formularza z ekranu
  ' Zerowa warto spowoduje dane zamknicie

  Cancel = 0
  Retcode = MsgBox("Czy zakoczy prac ?", vbOKCancel, "Koniec pracy")
End Sub

