Potvrzení ukončení aplikace
Postup:
Na událost Form_QueryUnload zapište:
Private Sub
Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim Answer As Integer
Answer = MsgBox("Opravdu si přejete ukončit aplikaci
?", _
vbQuestion + vbYesNo, "Potvrzení")
If Answer = vbNo Then Cancel = True
End Sub
Tady bych doporučoval podívat se na parametr UnloadMode, který vrací ukončovací kód. Asi by stálo za to ošetřit, jestli Vám aplikaci nechtějí ustřelit Windows, když končej. Pak už asi nemá smysl se ptát na potvrzení.