'Listing 22.3  22LIST03.TXT --- Poprawiona wersja procedury koczcej prac.


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 = 1  ' Warto zapobiegajca zakoczeniu
  Retcode = MsgBox("Czy zakoczy prac ?", vbOKCancel, "Koniec pracy")

  If (Retcode = vbOK) Then
    ' Nacinity zosta przycisk OK, zmie warto zmiennej Cancel na 0.
    Cancel = 0
    MsgBox "Potwierdzono zakoczenie - do zobaczenia"
  End If
End Sub
