[VB6] finestrina di salvataggio alla chiusura del form

[kalosjo]

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

  If MsgBox("Attenzione vuoi uscire?", vbQuestion + vbYesNo) = vbNo Then Cancel = 1

End Sub